[Bloo]

Здравствуйте!
Вот есть две формы. В Form1 в Memo загружаем текстовый файл, нажимаем на кнопку и открывается Form2.
При нажатии на кнопку в Form2 осуществляется поиск по тексту, загруженному в Form1.Memo1 и выводится в Form2.Memo1.
Безимени-3.jpg
В общем, нужно, чтоб выводились все строки после 'Comments:', но у меня в коду выводится только та строка, которая находится в той же строке, что и 'Comments:'.
Помогите пожалуйста исправить, буду очень благодарна! ^___^

Код:

procedure TForm2.Button2Click(Sender: TObject);
var i:integer;
    s:string;
begin
for i:=0 to Form1.Memo1.Lines.Count-1 do
if Pos('Comments:', Form1.Memo1.Lines.Strings[i])<>0 then
begin
s:=Form1.Memo1.Lines.Strings[i];
delete(s,1,pos(' ',s));
Memo1.Lines.Add(s);
end;
end;

[ChinYan]

Я так понял, нужно вывести и строки

888888
999999

тоже?

В таком случае можно перебирать все строки и если там есть Comments, то удалять его, а если нет, то просто выводить эту строку

[v1s2222]

Код:

procedure TForm2.Button2Click(Sender: TObject);
var i:integer;
begin
  i:=pos('Comments:', form1.memo1.Text)+length('Comments:');
  form2.memo1.text := trim(copy(form1.memo1.Text, i, length(form1.memo1.Text)-length('Comments:')));
end;

Вроде работать должно...

[Bloo]

СПАСИБО!!!