Doppelte Einträge in Listbox verhindern

[Daniel B]

Hi,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox1.Items.Strings[i] = Edit1.Text then
    begin
      ShowMessage('Das Wort ' + ListBox1.Items.Strings[i] + ' wurde gefunden!');
    end;
  end;
end;

HTH

Grüsse, Daniel