Schneller (ohne Sort):
Delphi-Quellcode:
For i := List.Count - 1 downto 0 do
For j := List.Count - 1 downto i + 1 do
If s[i]=s[j] then
s.delete(j);
@DeddyH:
for S in List do I := List.IndexOf(S);
entspricht doch
For i := 0 to List.Count-1 do S := List[i];
, nur das Letzteres um eine Größenordnung performanter ist oder irre ich mich?