Hallo
habe mal wieder ein problem
beim laden von einer 5MB text datei sollen leer zeilen entfernt werden.
benutze derzeit
Delphi-Quellcode:
for i := Memo1.Lines.Count - 1 downto 0 do
begin
if Trim(Memo1.Lines[i]) = '' then
Memo1.Lines.Delete(d);
Memo1.Lines[i] := Trim(Memo1.Lines[i]);
end;
oder
Delphi-Quellcode:
Sl:=TStringlist.Create;
SL.LoadFromFile(OpenDialog1.Filename);
for i := SL.Count - 1 downTo 0 do
if SL[i] = '' then
begin
// ist etwas schneller...
problem ist, es dauert einfach zu lange... es dauert ca. 5 minuten
es gibt doch bestimmt ein schnellere Möglichkeit