Удаление пустых строк

Удаление пустых строк

04.06.2010, 20:59

Dimon32

Познающий

Регистрация: 06.05.2010

Сообщений: 34

С нами: 8429952

Репутация: 0

Удаление пустых строк

У меня очень простой вопрос:
Как удалить пустые строки и строки состоящие только из пробелов из memo1?

Я пробовал 2 варианта:
1. вариант (более эффективный)

Код:

i:= 0; While i <> Memo1.Lines.Count - 1 do begin if Length(Memo1.Lines.Strings[i])=0 then begin Memo1.Lines.Delete(i); dec(i); end; inc(i); Next; end;

Но все равно в середине или еще где то остается пара пустых строк и строки состоящие из пробелов тоже остаются.
Это АНТИВАРИАНТ. Проблема не решена!
2. вариант. (Ваще не эффективный)

Код:

for i:=0 to memo1.lines.count-1 do if memo1.lines.strings[i]='' then memo1.lines.delete(i);

Не нужных строк остается гораздо больше.

Я долго немог найти ответ в Гугле. Но истина где то рядом...
Я думаю должно быть простое и гениальное решение для этой НЕВЕРОЯТНО трудно задачи!