Цитата:
|
Сообщение от 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;