Страница 1 из 1
Проверить на наличие записей в Memo
Добавлено: 23 авг 2005, 15:07
Duncon
В общем хочу проверить на содержание каждой строки Memo, что-то типа цикла который прервется при пустом значении,, ну и чтоб сразу записать например в другое Memo...
Что-то типа
если первая строка есть слово то ..
провериь следующую
если пусто остановить цикл
Добавлено: 23 авг 2005, 22:26
Zroman
i:=0;
while length(Memo1.Lines)>0 do inc(i);
Добавлено: 24 авг 2005, 09:06
LAngel
Код: Выделить всё
i:=0;
while (Length(Memo1.Lines[i])>0) and (i < Memo1.Count) do
begin
...
inc(i);
end;
Добавлено: 24 авг 2005, 14:05
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]