Doppelte wörter aus memo Löschen

[Lannes]

Hallo,

Duplicates nur wenn Sorted = True.
aber dann sind die Einträge nicht mehr in der ursprünglichen Reihenfolge.

Zum Self-Problem:

Delphi-Quellcode:

with TStringList.Create do
  try
    Sorted := True;
    Duplicates := dupIgnore;
    Assign(Memo1.Lines);
    Memo1.Text := Text;//<-- so geht es
  finally
    Free;
  end;