Hi ich versuche eine Suchfunktion für eine FileListBox zu schreiben. Nachdem ich ein bisschen im Internet rumm geguckt habe, hab ich mir das hier zusammen geschrieben:
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
end
else
begin
btn_gpOeffnen.Caption := 'N'; // Nur zu Test Zwecken
end;
end;
end;
Wenn ich jetzt die unterste Datei aus der FileListBox in der suche eingebe wechselt der button zwar auf Y aber erst nachdem dem ich den ganzen namen eingegeben habe. Ich möchte aber versuchen so eine Dynamische Suche zu schreiben. So dass Wenn ich einen Buchstaben schreibe und er in einem Dateiname drinn ist der Button(nur zu test zwecken) auf Y wechselt. Ich hoffe ihr versteht was ich meine^^
Weiß jemand was ich falsch mache und/oder wie es richtig geht?
fg
edit: Vielleicht könnte mir jemand nebenbei auch noch kurz sagen ob es geht eine datei aus einer FileListBox raus zu nehmen, aber die Datei selbst nicht zu verändern.
