ListBox

[_frank_]

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