ListBox nach einem bestimmten Eintrag durchsuchen

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iFor: Integer;
begin
  for iFor := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox1.Items.Strings[iFor] = Edit1.Text then
      ShowMessage('Das gesuchte Wort wurde an ' + IntToStr(iFor) + 'ter Stelle gefunden.');
  end;
end;

Grüsse, Daniel

[Daniel B]

Hallo,

und noch eine kleine Ergänzung von Mario!
Wer es einfacher haben möchte.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var iFound: Integer; 
begin 
  iFound := ListBox1.Items.IndexOf(Edit1.Text); 
  if iFound >= 0 
  then ShowMessage('Das gesuchte Wort wurde an ' + IntToStr(iFound) + 'ter Stelle gefunden.') 
  else ShowMessage('Das gesuchte Wort wurde nicht gefunden.'); 
end;

Grüsse, Daniel