Zitat von
pstruh:
Hallo Klaus,
also 'mal gaaaaaaaanz vorsichtig gefragt: Es sollen doch alle nur einfach vorhandenen Einträge aus der Liste verschwinden und nur die mehrfach vorhandenen Einträge übrig bleiben. Mit deiner Methode wird m. E. genau das Gegenteil bewirkt, es werden alle Mehrfacheinträge aus der Liste herausgenommen - oder denke ich da jetzt gaaaaaaanz falsch???
Gruß
Nein, liegst Du nicht falsch, hätte da besser lesen sollen.
Danke für den Hinweis.
Sodele, etwas pervers aber so geht es auch:
Delphi-Quellcode:
procedure OnlyDupes(
var slList: TStringList);
var
sl1,sl2 : TStringList;
i: Integer;
begin
sl1 := TStringList.create;
sl1.sorted:=true;
sl1.duplicates:=dupIgnore;
sl2 := TstringList.create;
sl2.sorted:=true;
sl2.Duplicates:=dupError;
for i:=0
to slList.count -1
do
try
sl2.add(slList[i]);
except
on E:
Exception do
begin
sl1.add(slList[i]);
end;
end;
slList.assign(sl1);
sl1.free;
sl2.free;
end;
Grüße
Klaus