StringList - doppelte Einträge vermeiden

[sECuRE]

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