Удалить пустые строки из Memo

[W0LF]

Здравствуйте, извините за "тупой" вопрос, голова совсем не варит.
Как очистить Memo от пустых строк?

[Selestis]

в цикле пройди(while):

if Memo.Lines[i]='' then begin
Memo.Lines.Delete(i);
dec(i);
end;

[Serge_Bliznykov]

на моей памяти на форуме уже третий раз публикую один и тот же ответ...

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
  TS : TStringList;
begin
  TS := TStringList.Create;
  TS.Text := Memo1.Text;
  for i:=TS.Count-1 downto 0
    do if Length(trim(TS.Strings[i]))=0
       then TS.Delete(i);
  Memo1.Text := TS.Text;
end;

[W0LF]

Подсказали мне другой способ, вот если кому пригодиться:

   Memo1.Text := StringReplace(Memo1.Text, #13#10#13#10, #13#10, [rfReplaceAll]);

[Serge_Bliznykov]

кстати, есть отличия.
в моём случае строчка имеющая в своём составе пробелы - удалится, а при использовании StringReplace - останется.

Впрочем, главное, что Ваше решение Вас устраивает!

[Gin 1]

Serge_Bliznykov, пустые строки в тексте TStringList удаляются, но последняя (та что добавляет сам TStringList) строка пустой всё-равно остаётся. Соответственно, счётчик показывает неправильный результат, так как считает и пустую строку.

[Arigato]

Не знаю о чем вы говорите. У меня все удаляется (проверяю в Лазарусе):

procedure RemoveEmptyLines(Memo: TMemo);
var i : integer;
  TS : TStringList;
begin
  TS := TStringList.Create;
  TS.Text := Memo.Text;
  for i:=TS.Count-1 downto 0
    do if Length(trim(TS.Strings[i]))=0
       then TS.Delete(i);
  Memo.Text := TS.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('    ');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('qwerty');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('asdfgh');
  Memo1.Lines.Add('');
  ShowMessage(IntToStr(Memo1.Lines.Count));
  RemoveEmptyLines(Memo1);
  ShowMessage(IntToStr(Memo1.Lines.Count));
end;

Выводит: 6, 2.

P.S. Если речь о том, что в конце последней строки все равно стоят символы перевода строки и от них нужно избавиться, то измените последнюю строку функции на:

  Memo.Text := TrimRight(TS.Text);