leere Zeilen in Textdateien erkennen und löschen?

[Aenogym]

hi,

über stringlist gehts genauso:

Delphi-Quellcode:

var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.loadfromfile(Deinedatei);
    i := 0;
    while i < sl.Count do
    begin
      if sl[i] = '' then
        sl.Delete[i]
      else
        Inc(i);   
    end;
  finally
    sl.free;
  end;
end;

Aenogym