[Revolution2010]

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

строка 3


строка 6

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

[aleksnine]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;

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

Код:

1	DelStroki(memo1);