hallo und danke für eure antworten.
habs nun so gelöst:
dauert damit ca. 10 minuten
merkwürdigerweise werden dabei auch einige ; in der datei gelöscht.
insofern ist diese lösung doch nicht so geeignet.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
I: integer;
begin
SL := TStringList.Create;
try
SL.BeginUpdate;
try
SL.LoadFromFile('C:\file.txt');
SL.Sort;
for i := SL.Count - 2 downto 0 do
if SL[i] = SL[i + 1] then
SL.Delete(i + 1);
SL.SaveToFile('C:\file_ok.txt');
finally
SL.EndUpdate;
end;
finally
SL.Free;
end;
Showmessage('Fertig...');
end;
hallo Christian
hast du evt. ein beispiel, ein paar zeilen?
gruss capo