TStringlist Duplikate verhindern

[stahli]

nachträgliches Löschen mache ich so:

Delphi-Quellcode:

    for I := 0 to SL.Count - 2 do
    begin
      for J := SL.Count - 1 downto I + 1 do
      begin
        if SL[J] = SL[I] then
          SL.Delete(J);
      end;
    end;

Stahli