Delete duplicates from list

[DeddyH]

Delphi-Quellcode:

var
  S: string;
  I, J: Integer;
begin
  for S in List do
  begin
    I := List.IndexOf(S);
    for J := List.Count - 1 downto I + 1 do
      if List[J] = S then
        List.Delete(J);
  end;
end;

Or use a TStringlist as Klaus said before (this TStringlist must have set Sorted to true).