Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 11.09.2010, 15:38   #1
W0LF
Участник клуба
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Адрес: UA
Сообщений: 940
Репутация: 353

icq: 941593
skype: feralfrost
По умолчанию Удалить пустые строки из Memo

Здравствуйте, извините за "тупой" вопрос, голова совсем не варит.
Как очистить Memo от пустых строк?
W0LF вне форума   Ответить с цитированием
Старый 11.09.2010, 15:50   #2
Selestis
Участник клуба
 
Аватар для Selestis
 
Регистрация: 21.01.2009
Адрес: Самара
Сообщений: 719
Репутация: 268
По умолчанию

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

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

__________________
Изобретатель велосипедов
Selestis вне форума   Ответить с цитированием
Старый 11.09.2010, 16:15   #3
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,487
Репутация: 5308
По умолчанию

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

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;

Serge_Bliznykov вне форума   Ответить с цитированием
Старый 11.09.2010, 16:31   #4
W0LF
Участник клуба
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Адрес: UA
Сообщений: 940
Репутация: 353

icq: 941593
skype: feralfrost
По умолчанию

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

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

W0LF вне форума   Ответить с цитированием
Старый 11.09.2010, 16:52   #5
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,487
Репутация: 5308
По умолчанию

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

Впрочем, главное, что Ваше решение Вас устраивает!
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить пустые строки из TStringList apromix Общие вопросы Delphi 5 14.09.2016 13:14
удалить пустые строки в txt файле andreton Помощь студентам 3 05.06.2010 21:35
Удалить пустые строки перед добавлением Shouldercannon Общие вопросы Delphi 2 28.05.2010 19:49
Удалить лишние пустые строки vfv Microsoft Office Excel 2 09.03.2010 12:05
Как удалить пустые строки с условиями? ru3000 Microsoft Office Excel 9 30.06.2009 00:13


07:39.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru