Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Июн

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

Posted by obzor under Delphi

Как очистить Memo от пустых строк?

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))=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 — останется.

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

тема на форуме

Последние записи

made in programmersforum 10

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

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru