Hi,
ich kenn die Eigenschaft nicht, die du hier verwenden willst. Ich würd das "per Hand" machen:
Delphi-Quellcode:
function CheckIfDouble(const entry: string; var list:TStringList; case_sensitive: boolean):boolean;
var c:integer;
begin
for c:=0 to (list.count-1) do
if ((list.strings[c] = entry) and case_sensitive) or ((lowercase(list.strings[c]) = lowercase(entry)) and (not case_sensitive)) then begin
result:=true;
break;
end;
result:=false;
end;
// Stelle, an der hinzugeüfgt wird
procedure AddItem(item: string);
begin
if (not CheckIfDouble(item, aList, false)) then
aList.Add(item);
end;
Vielleicht hilft dir das ja weiter
cu