Проверить на наличие записей в Memo

[Duncon]

В общем хочу проверить на содержание каждой строки Memo, что-то типа цикла который прервется при пустом значении,, ну и чтоб сразу записать например в другое Memo...

Что-то типа

если первая строка есть слово то ..
провериь следующую
если пусто остановить цикл

[Zroman]

i:=0;
while length(Memo1.Lines)>0 do inc(i);

[LAngel]

Код: Выделить всё

i:=0;
while (Length(Memo1.Lines[i])>0) and (i < Memo1.Count) do 
begin
  ...
  inc(i);
end;

[Duncon]

Zroman, LAngel спасибки...
Вот что получилось...

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Memo2.clear;
i:=0;
while (Length(Memo1.Lines[i])>0) do
begin
Memo2.Lines.Add(Memo1.Lines[i]);
showmessage('common') ;//Ну это так для наглядности цикла
inc(i);
end;
end;

Тема закрыта[/color]