Problem mit FindFirst und Dateiendungen

[nahpets]

Hallo,

da wir schon bei Fehlern von FindFirst und Co sind:

In den Delphi-Sourcen findet man diese:
Size := FindData.nFileSizeLow; Size ist ein Integer, bei Dateien größer 2GB bekommt man kein korrektes Ergebnis mit FindFirst/FindNext, das TSearchRec.Size halt bei 2GB aufhört bzw. per Überlauf mit -2GB weiter macht, nFileSizeHigh wird ganz unterschlagen. Ist bei der Ermittlung des Platzbedarfs von Verzeichnis zuweilen geringfügig hinderlich Gut, man muss Size nicht benutzen, sondern kann FindData... nehmen, man muss nur erst drauf kommen, wo da der Hund begraben liegt.

Stephan