warum nicht
Delphi-Quellcode:
if (Listbox1.items.indexof(edit1.text)=-1) then
Listbox1.items.add(edit1.text);
wenn du lieber die einzelnen einträge durchgehen willst (z.B. wegen Groß/Kleinschreibung) musst du bedenken, dass das erste item den Index 0 hat.
Delphi-Quellcode:
function EntryExists(items:TStrings;Text:string):boolean;
var i:integer;
lc:string;
begin
result:=false;
lc:=AnsiLowerCase(Text);
for i:=0 to items.count-1 do
begin
if lc=AnsiLowerCase(items.strings[i]) then result:=true;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not entryexists(Listbox1.items,edit1.text) then
Listbox1.items.add(edit1.text);
end;
Gruß Frank