Guten Abend,
auch wenn das Problem schon gelöst ist, möchte ich doch noch diese Methode vorstellen.
Delphi-Quellcode:
procedure OnlyDupes(var slList: TStringList);
var
sldummy : TStringList;
begin
slDummy := TStringList.create;
slDummy.sorted:=true;
slDummy.duplicates:=dupIgnore;
slDummy.assign(slList);
slList.assign(slDummy);
slDummy.free;
end;
Grüße
Klaus