Hi, ich benutze diesen Algorithmus um Duplikate in einer Stringlist zu löschen, allerdings braucht dieser extrem lange bei 100.000 Einträgen und mehr.
Kennt jemand einen schnelleren?
Delphi-Quellcode:
procedure KillDuplicates(s: TStrings);
var
iLow, iHigh: integer;
begin
for iLow := 0 to s.Count - 1 do
for iHigh := Pred(s.Count) downto Succ(iLow) do
if s[iLow] = s[iHigh] then
s.Delete(iHigh);
end;