leere Zeilen in Textdateien erkennen und löschen?

[oki]

Hi,

kreiere eine StringList, lade das File, Prüfe Lines[x] auf '' und lösche die gegebenenfalls. Kurzer Code:

Delphi-Quellcode:

procedure TForm1.ClearLineBtnClick(Sender: TObject);
var List : TStringList;
    Counter : Integer;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile(FFileName);
    IF List.Count = 0 then Exit; // nichts geladen dann raus
    For Counter := List.Count - 1 downto 0 to begin
      IF List.Strings[Counter] = '' then
        List.Delete(Counter);
    end;
    // hier alles tun was mit der bereinigten Liste getan werden soll
    // z.B.:
    List.SaveToFile(FFileName);
  finally
    List.Free;               // List definitiv frei geben
end;

Ich hab das hier mal einfach auf einen Button gelegt, wobei ich davon ausgehe, dass FFileName als Member deklariert ist (String) und ein Dateiname woanders zugewiesen wurde. Gegenüber einem Memo müßte auch nicht unbedingt eine visuelle Kompo genutzt werden.

Andere Möglichkeiten bestehen sicher auch noch.

Gruß oki