Listbox nach String durchsuchen (nicht mit ItemIndex)

[Stanlay Hanks]

Hallo zusammen. Ich hab in einer Listbox verschiedene Einträge (Schulfächer) die man aber auch entfernen und hinzufügen kann. Jetzt will ich prüfen, ob ein bestimmtes Fach (z.B. der String 'Englisch') in der Listbox enthalten ist. Hab's schon mit case of und so probiert, kriegs aber nicht hin. Könnt ihr mir helfen Danke, man liest sich.

[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

[Stanlay Hanks]

Einwandfrei. Das geht ja schnell. Vielen dank