Trim dauert bis zu 5 minuten....Benötige schnelle Lösung

[Uwe Raabe]

Ein weiterer Ansatz ist eine zweite temporäre Stringliste:

Delphi-Quellcode:

SL := TStringList.Create;
try
  tmp := TStringList.Create;
  try
    SL.LoadFromFile(OpenDialog1.Filename);
    for i := 0 to SL.Count - 1 do
      begin
        S := Trim(SL[i]);
        if S <> '' then 
          tmp.Add(S);
      end;
    tmp.SaveToFile(OpenDialog1.Filename);
  finally
    tmp.Free;
  end;
finally
  SL.Free;
end;