Einzelnen Beitrag anzeigen

Benutzerbild von goodvirus
goodvirus

Registriert seit: 24. Aug 2004
Ort: Bremen
54 Beiträge
 
Delphi 7 Enterprise
 
#1

Dublikat entfernen zu zeitintensiv

  Alt 31. Mär 2005, 17:41
Moin,
Ich hab schon ne ganze Zeit net mehr in delphi geproggt, brauchte jetzt aber just mal ein kleines Programm.
Ich habe eine Textdatei die ca 90 Mb groß ist.
In jeder Zeile steht ein Wort, Zahl oder Einige sonderzeichen(kann auch alles vermischt sein)
Nun wollte ich alle doppelten Einträhe entfernen. Dazu hab ich mir einfach mal aus einem meiner alten Delphiprojekte ein kleinen Codeschnipzel genommen.
Delphi-Quellcode:
var sl: TStringlist;
begin
sl:=TStringlist.Create;
try
  SL.Sorted := true;
  SL.Duplicates := dupIgnore;
  SL.LoadFromFile('zusammen.txt');
  Sl.SaveToFile('fertig.txt');
finally
sl.Free;
Dies sollte eigentlich alle doppelten Einträge herausfiltern. Tut es auch wenn ich mit kleinen Dateien arbeite.
Nun mach ich es aber bei der 90 MB Datei und mein Pc (1,8 GHz) rennt schon seit ca 2 Stunden.
Nun meine Frage(n):
Ist hier ein Fehler im Code?
Kann man dies Optimieren?
Mit welcher Methode sortiert eigenlich Delphi?(also bei diesem Beispiel)

Schon mal im voraus vielen Dank
MfG goodvirus
Es ist schlimmer einen Freund zu mißtrauen als von ihm entäuscht zu werden.
  Mit Zitat antworten Zitat