Such function in FileListBox Funktioniert nicht richtig

[DeddyH]

Deine Schleife läuft ja nach einem Treffer trotzdem weiter, deshalb klappt das auch nur mit dem letzten Eintrag.

[edit] Wie ist es so?

Delphi-Quellcode:

procedure TForm4.edit_sucheChange(Sender: TObject);
var i : integer;
    found: Boolean;
begin
  i := 0;
  found := false;
  while (i < FileListBox1.Count) and not found do
  begin
    if AnsiContainsText(FileListBox1.Items[i], edit_suche.Text) then
      found := true;
    inc(i);
  end;
  if found then
    btn_gpOeffnen.Caption := 'Y' // Nur zu Test Zwecken
  else
    btn_gpOeffnen.Caption := 'N'; // Nur zu Test Zwecken
end;