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
