Как реализовать копирование содержимого из Memo1 в Memo2?

Question

[White_Bambie]

На форме имеется два Memo. Необходимо копирование содержимого из memo1 в memo2, начиная с указанной строки. Указанная строка записывается в edit. Я так понимаю, что данную функцию можно реализовать через цикл. Но в delphi я слабоват, поэтому обращаюсь за помощью к вам. Если кому-нибудь будет не трудно, буду рад предоставленному коду.
Всех благ!
Пример:

Comments

[Константин Цветков]

Начало понятно 16:00. А окончание?

[White_Bambie]

Все что после 16:00

[Константин Цветков]

У вас нет сетки и выравнивания :-)

Answer 1

[Константин Цветков]

А как скопировать содержимое из memo1 в memo2 с этим условием?

var i: integer;
begin
  Memo2.Clear;
  for i := Memo1.Lines.IndexOf( Edit1.Text ) to ( Memo1.Lines.Count - 1 )
    do Memo2.Lines.Add( Memo1.Lines[i] );
end;

Comments

[White_Bambie]

Большое Вам спасибо!