KillDuplicates gibt Fehler mit CoolTrayIcon?

[marabu]

Mein Vorschlag wäre:

Delphi-Quellcode:

procedure KillDuplicatesEx(s: TStrings; index: integer);
var
  iLow, iHigh: integer;
  sLow, sHigh: TStringList;
begin
  sLow := TStringList.Create;
  sHigh := TStringList.Create;
  for iLow := 0 to s.Count - 2 do
    for iHigh := Pred(s.Count) downto Succ(iLow) do
    begin
      sLow.CommaText := s[iLow];
      sHigh.CommaText := s[iHigh];
      if sLow[index] = sHigh[index] then
        s.Delete(iHigh);
    end;
  sLow.Free;
  sHigh.Free;
end;

marabu