Doppelte Werte aus Memo entfernen

[Hawkeye219]

Für Notfälle:

Delphi-Quellcode:

procedure RemoveDuplicates (aList: TStrings); 
var
  i : Integer;
begin
  aList.BeginUpdate;
  try
    for i := aList.Count - 1 downto 1 do
      if (aList.IndexOf(aList[i]) < i) then
        aList.Delete (i);
  finally
    aList.EndUpdate;
  end;
end;

Gruß Hawkeye