Such function in FileListBox Funktioniert nicht richtig

[Wurstuk]

OK Danke es funktioniert, also indirekt^^ Ich musste AnsiContainsText mit pos ersetzten weil deins irgendwie nicht bekannt war.

Mit deiner Methode wird zwar jetzt wenn ich den ganzen Dateiname eingebe auf Y geschaltet, aber ich wollte versuchen das es schon auf Y geht wenn ich den ersten richtigen buchstabe eingebe. Am ende soll dabei z.B sowas raus kommen: Die Datei heißt 'abc.xyz' und ich gebe ein a ein und es werden nur noch alle datein mit einem a an erster stelle angzeigt, dann gebe ich ein b ein usw... Weiß da jemand rat? Geht es vielleicht nicht so wie ich es will weil ich Nicht AnsiContainsText benutze?

Damit geht es überigens genau so:

Delphi-Quellcode:

procedure TForm4.edit_sucheChange(Sender: TObject);
var i : integer;
begin
  for i := 0 to FileListBox1.Count - 1 do
  begin
    if Pos(FileListBox1.Items[i], edit_suche.Text) > 0 then
    begin
      btn_gpOeffnen.Caption := 'Y'; // Nur zu Test Zwecken
      exit;//<--------
    end
    else
    begin
      btn_gpOeffnen.Caption := 'N'; // Nur zu Test Zwecken
    end;
  end;
end;

Ich weiß nur nicht ob das so ganz richtig ist.

Freu mich über jede Hilfe