Listbox nach String durchsuchen (nicht mit ItemIndex)

[Daniel B]

Hallo,

etwa so?!?

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