[Revolution2010]

Как найти в мемо и удалить пусты строки?
Пример:
Как есть:
строка 1

строка 3


строка 6

Должно быть:
строка 1
строка 3
строка 6

[aleksnine]

Ну конешно мой код тупенький , но все же работает .
С двумя integer переменными можно сделать так.

Код:

procedure DelStroki(Memo:tmemo);
const
Stroka='';
var
i,i2:integer;
begin
i2:=0;
for i:=0 to memo.Lines.Count -1 do begin
if memo.Lines.Strings[i2] = stroka then begin
memo.Lines.Delete(i2);
i2:=i2-1;
end;
i2:=i2+1;
end;end;

И используем так

Код:

DelStroki(memo1);