[EverGreen]

Уважаемые форумчане и гуру Дельфи!
Прошу вашей помощи, т.к. я только начинаю программировать на дельфи.

Вопрос такой: нужен скрипт на дельфи для удаления пустых строк в конце файлов.
Есть ListBox1, список файлов (10-15 шт), есть Button1.
Надо, что бы после нажатия на Button1 из всех (или выбранных) файлов из ListBox1 в конце были удалены пустые строки или символы (HEX - #32, BIN-#20) строго после окончания текста, а также были сохранены произведенные изменения с файлами.
Конец текста соостветственно обозначен точкой "."
Как это сделать?
Спасибо огромное всем за помощь!

[angvelem]

Первое, что приходит в голову, загружать файлы поочерёдно в StringList, сканировать строки на требуемое условие и ненужные удалять, по завершении - сохранить.

[EverGreen]

А как все это сделать? Плиз....

[angvelem]

Эээ.

Код:

var
  sl : TStringList;
  I  : Integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('MyFile.txt');
    for I := 0 to sl.Count - 1 do
    begin
       // проверяем, что в строке
    end;
    sl.SaveToFile(MyFile_1.txt);
  finally
    sl.Free;
  end;
end;

Набрано здесь же, за достоверность не ручаюсь.

[EverGreen]

//проверяем, что в строке
Это вот как-то так:
Trim( sl.Strings[i] ) = ''пустышка"

А для символов в бинарном виде : #20, #32 как это делается и как построить цикл для всех файлов из ListBox1?
Гранд мэрси!

[angvelem]

Ну автору виднее, но лучше изменить цикл на while, если предполагается удаление.

Код:

for J := 0 to ListBox1.Count - 1 do
begin
  предыдущий код
end;

Используй функцию Pos

[EverGreen]

ууух, что то не соображается. Видно уже поздно. Направления действий получил, буду пробовать! Если не получиться, буду опять задавать тупые вопросы 8-)
Спасибо Вам за советы! Всего наилучшего!!!

[angvelem]

пимерно так:

Код:

var
  sl : TStringList;
  I, J  : Integer;
begin
  for J := 0 to ListBox.Count - 1 do
  begin
    if ListBox1.Selected[i] then // выбираем только отмеченные
    begin
      sl := TStringList.Create;
      try
        sl.LoadFromFile('MyFile.txt');
        while True
        begin
         // проверяем, что в строке
         if начинается нужный текст then
           Break;
        end;
        sl.SaveToFile(MyFile_1.txt);
      finally
        sl.Free;
      end;
    end;
  end;
end;

[ART]

а как же replaceString? ( Копипастим конец файла и заменяем

[angvelem]

С какой версии Дельфи включено?