Doppelte Zeilen aus einem TMemo löschen

[marabu]

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