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

Posted by obzor under Delphi

Может кто стыкался? Программа глючит, если в файле есть пустые строки между строк. Как удалить пустые строки из TStringList? Метод Delete у меня вызывает ошибку, выход за границы списка.

Вавел из ГМТУ

Надо пройтись с конца списка до первого элемента и удалять встретившиеся пустые строки.

Serge_Bliznykov

позволю себе проиллюстрировать абсолютно верный ответ Вавел из ГМТУ кодом (в качестве примера):

var i : integer;
  TS : TStringList;
begin
  //это для создания/заполнения TStringList'а
  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;

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

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

• Сортировка имен файлов в TStringList
• Как экспортировать таблицу DBGrid в txt файл?
• Случайная строка из текстового файла
• Загрузка в ListView из ini файла
• Как из строки получить время?
• как можно выгрузить только одну колонку с ListView?
• Как удалить все строки из txt в которых нет символа «+» ?
• Подсчитать кол-во одинаковых слов в Memo и вывести результат в переменную integer?
• Найти и удалить всю cтроку, в которой нет заданной подстроки
• Не удается отправить русские символы в POST запросе через IdHttp