In TListBox keine doppelten Items !

[Äfan]

Hi,

Ich will das per klick, der Text aus Edit1 in die Liste eingefügt wird. Das geht ! Es ist aber blöd, dass man z.B. den Text "Hallo" öfters einfügen und das soll net sein. Wie mache ich, dass keine Doppelten einträge in die Liste eingefügt werden und eine Meldung gezeigt wird "Gibts schon" ?

mfg

[Joe24]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   if ListBox1.Items.IndexOf( Edit1.Text) = -1 then
     ListBox1.AddItem( Edit1.Text, nil) else
     MessageBox( 0, 'Es werden keine Duplikate akzeptiert!','Hinweis',48); 
end;

[.Chef]

if ListBox.Items.IndexOf(Edit.Text) >= 0 then Gruß,
Jörg