Doppelte Einträge in Listbox verhindern

[Chewie]

Zitat von 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

Klar, der gute alte eindimensionale Such-Algorithmus. Der ist mir nur zuviel Arbeit, und ich hab schließlich gedacht, dafür gäbs ne Eigenschaft. Aber mit IndexOf gehts einfacher als mit der Schleife.