Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wurstuk,
20. Aug 2010
Vielen Danke!!! Ihr helft mir echt super :D
Du hattest recht ich habe i nicht mehr erhöht und es klappt :) Jetzt veränder ich noch schnell den teil mit dem löschen und dann funktioniert das ganze :thumb:
Vielen Dank nochmal!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wurstuk,
20. Aug 2010
So ich Hab gestern Abend noch viel rumm probiert und es sieht jetzt so aus:
procedure TForm4.edit_sucheChange(Sender: TObject);
var i : integer;
begin
i := 0;
while i <= FileListBox1.Count -1 do
begin
if length(edit_suche.Text) > 0 then //Wenn das edit feld nicht leer ist...
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wurstuk,
19. Aug 2010
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wurstuk,
19. Aug 2010
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:
procedure TForm4.edit_sucheChange(Sender: TObject);
var i : integer;
begin
for i := 0 to FileListBox1.Count - 1 do
begin
if Pos(FileListBox1.Items, edit_suche.Text) > 0 then
begin
btn_gpOeffnen.Caption...