Vergleich von Edit und Listbox

[p80286]

Delphi-Quellcode:

var
 Suchwort: String;
 Gefunden: Boolean;
begin
 Gefunden := False;
 Suchwort := Edit1.Text;

 for i := 0 to ListBox1.Items.Count -1 do
  begin
   Gefunden := Pos(Suchwort, ListBox1.Items[i]) > 1);

   if Gefunden then
    begin
     //Label1.Caption := 'Schlagwort "' + Suchwort  + '" befindet sich in der Zeile (i + 1) mit dem Namen "' + ListBox1.Items[i] + '"';

     //Break;
    Memo1.Lines.Add('Schlagwort "' + Suchwort  + '" befindet sich in der Zeile (i + 1) mit dem Namen "' + ListBox1.Items[i] + '"');

    end;
  end;
end;

@DieDolly
Wollte mich nicht mit Deinen Federn schmücken, aber so scheint es mir am einfachsten.

Gruß
K-H