Zitat:
Delphi-Quellcode:
DatabaseName := DB_Container.DatabaseName;
TableName := invaname;
Open;
...
Close;
Diese Teile ändern sich nicht.
Wieso also nicht einfach nur
einmal for/nach der For-Schleife?
Statt der vielen FileTime- und FileSize-Funktionen könnte man es mal mit einem
FindFirstFile versuchen. (das ganze Geraffel vom
FindFirst kann man sich hier sparen)
PS: SL ist eine sehr gut benamte externe Variable.
