In TListBox keine doppelten Items !

[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;