Doppelte Einträge entfernen?

[yankee]

Zitat von smart:

Hallo Hallo Blabla..

Und sollte das rauskommen:

Hallo Blabla..

Also schon sortiert und hintereinander.
Das einfachste ist wohl das:
besorg dir Explode und mach dann folgendes (ungetetste):

Delphi-Quellcode:

procedure antidoppelte(theMemo: TMemo);
var temp: TStringDynArray;
    i2: integer;
begin
    for i:=0 to theMemo.Lines.Count -1 do
    begin
        temp :=Explode(' ', theMemo.Lines.Strings[i]);
        theMemo.Lines.Strings[i] :='';
        for i2:=0 to length(temp) -1 do if (i2 =length(temp) -1) or (temp[i2] <> temp[i2+1]) then theMemo.Lines.Strings[i] :=theMemo.Lines.Strings[i]+ ' ' +temp[i];
    end;
end;

Also so mal vom Grundgedanke her. Könnte sogar sien, dass diese procedure sofort läuft *gg*