genau das ist es!!
erstmal vielen dank
aber jetzt muss ich diese files noch in meine datenbank hineinschreiben können.
das habe ich so gemacht:
Delphi-Quellcode:
begin
label8.Caption := '0';
listbox1.ItemIndex := 0;
repeat
listbox1.ItemIndex := listbox1.ItemIndex+1 ;
label8.Caption := inttostr(strtoint(label8.caption)+1);
player.Button3.Click; // files-informationen auslesen
button2.Click; // in die datenbank einschreiben
until listbox1.ItemIndex = listbox1.Count-1;
label8.Caption := inttostr(strtoint(label8.caption)+1);
player.Button3.Click;
button2.Click;
end;
das problem ist jedoch, dass immer nur der letzte eintrag der listbox in die datenbank eingeschrieben wird
gibt es dafür eine erklärung? oder noch besser eine lösung?