Hallo,
hier noch ein In-Place-Ansatz:
Delphi-Quellcode:
procedure KillDuplicates(s: TStrings);
var
iLow, iHigh: integer;
begin
for iLow := 0 to s.Count - 2 do
for iHigh := Pred(s.Count) downto Succ(iLow) do
if s[iLow] = s[iHigh] then
s.Delete(iHigh);
end;
Und wenn der Parameter immer "id" heißt, dann würde ich in AddToList() den
Url-Präfix noch etwas erweitern:
Delphi-Quellcode:
const
PFX = 'http://www.webseite.de/profile.php?id=';
Es werden dann nur die Codes eingetragen.
Freundliche Grüße