[scroyler]

Здравствуйте.
У меня такой вопрос как сделать так что бы по истечению таймера (н-р в30сек) 1ая строка в мемо переносилась в едит1, прошло еще 30 сек теперь уже переносится 2ая строка в едит1. и так далее.
Жлательно что бы было примерно так начиная с 1ой строки заканчиваясь на 100 таймер отключался.
И что бы каждые 30сек нажималась определенная кнопка (битбтн) пока включен таймер

[th_bav]

А в чем именно сложность???
Просто как погляжу алгоритм Вы представляете...
Или Вы вообще не знаите с чего начать???

[scroyler]

Сообщение от th_bav

А в чем именно сложность???
Просто как погляжу алгоритм Вы представляете...
Или Вы вообще не знаите с чего начать???

Сложность в том что плохо знаю работу с чеклистбоксом

[th_bav]

Сообщение от scroyler

Сложность в том что плохо знаю работу с чеклистбоксом

Что то я запутался, а он то причем??? В первом посте ни слова..., ну да ладно...
Так как мне охота почесать руки, то я попробую набросать код, я правда уже сто лет не писал, да и тогда был новечком, так что через час отпишусь если что то выйдет

[scroyler]

Ой извини перепутал посты)
Спасибо буду ждать)

[th_bav]

Сделал, возможно немного не то но суть будет ясна
Ставьте в свойстве таймера нужное время...

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
i:=0;
while i<100 do
begin
Edit1.Text:=Memo1.Lines[i];
i:=i+1;
end;
end;
end.

Сообщение от scroyler

Здравствуйте.
И что бы каждые 30сек нажималась определенная кнопка (битбтн) пока включен таймер

А зачем чтобы нажималась определенная кнопка??? Может стоит поставить еще один таймер и пусть просто выполняется процедура этой кнопки через определенное время???

АААААА не то сделал, ща переделаю.....

[scroyler]

Сообщение от th_bav

Сделал, возможно немного не то но суть будет ясна
Ставьте в свойстве таймера нужное время...

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
i:=0;
while i<100 do
begin
Edit1.Text:=Memo1.Lines[i];
i:=i+1;
end;
end;
end.

А зачем чтобы нажималась определенная кнопка??? Может стоит поставить еще один таймер и пусть просто выполняется процедура этой кнопки через определенное время???

АААААА не то сделал, ща переделаю.....

да уж что то не то)он просто едит чисти и все через некоторое время(

[th_bav]

Сообщение от scroyler

да уж что то не то)он просто едит чисти и все через некоторое время(

Он его не чисти, просто у Вас в Memo не 100 строчек, блин ваще не могу сооброзить..., но я не сдамся)))

[scroyler]

Сообщение от th_bav

Он его не чисти, просто у Вас в Memo не 100 строчек, блин ваще не могу сооброзить..., но я не сдамся)))

хах) все дошло можешь не парится,спасибо!

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text := memo1.Lines[0];
memo2.Lines.Add(memo1.Lines[0]);
memo1.Lines.Delete(0);
button1.Click;
end;

[th_bav]

Ну вот и славно!!!