weitersuchen funktion wenn " nicht gefunden"

[TBx]

Hallo!

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.SuchenClick(Sender: TObject);
var
  i: Integer;
  Gefunden: Boolean;
  Suchwort: string;

begin
  Gefunden:=false;
  repeat
    Suchwort := InputBox('Suchen nach einem Merkmal',
                         'Wonach soll gesucht werden?','');
    if Suchwort <> '' then
    begin
      i:=-1;
      while (i<Listbox1.Items.Count-1) and not gefunden do
      begin
        Inc(i);
        if Pos(Suchwort,ListBox1.Items[i])>0 then Gefunden:=True;
      end;
      if Gefunden then
        ListBox1.ItemIndex:=i
      else
      begin 
        ShowMessage('Suchwort wurde nicht gefunden');
        ListBox1.ItemIndex := -1;
      end
    end
    else break;
  until gefunden;
end;

Hope it helps

onlinekater

PS: Herzlich willkommen in der Delphi-Praxis!

[Edit] demarkieren des Listboxeintrages bei Mißerfolg hinzugefügt [/Edit]