Dublikat entfernen zu zeitintensiv

**goodvirus**

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.

markieren

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

Dublikat entfernen zu zeitintensiv

Dublikat entfernen zu zeitintensiv

Forumregeln