(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
Re: Daten auf Festplatte statt in Speicher schreiben
21. Dez 2006, 15:20
Moin Patrick,
das Problem dürfte sein, dass Du FileList als Wertparameter deklariert hast. Dann wird eine Kopie angelegt.
Schreib mal const davor.
Bei GetFileSize könntest Du das FindClose noch mit einem try/finally absichern (wenn auch hier nicht zwingend erforderlich), ausserdem halte ich den Default-Rückgabewert von 0 für ungeschickt, denn eine Datei kann ja durchaus 0 Byte gross sein.
Wie wäre es mit -1?
faAnyfile and faDirectory ist das gleiche wie faDirectory.
[EDIT]
Ach ja, in Deiner Hauptroutine fehlt ein Try/Finally um den Aufruf von FindClose abzusichern.
[/EDIT]
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|