Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
21. Jan 2004
Alternativ kannst du die Datei auch in einen Stream laden und die Eigenschaft Size nutzen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
21. Jan 2004
Hm. Und warum verschweigst du ihm den Rest:
Oder anders: Deine Antwort würde auf die Frage passen: "Wie viele Datensätze befinden sich in einer typisierten Datei?"
Die größe von binären Dateien kann man so nicht bestimmen!
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
21. Jan 2004
function GetFileSize(szFile: String): Cardinal;
var
fFile: THandle;
wfd: TWIN32FINDDATA;
begin
result := 0;
if not FileExists(szFile) then exit;
fFile := FindFirstfile(pchar(szFile),wfd);
if fFile = INVALID_HANDLE_VALUE then exit;
result := (wfd.nFileSizeHigh*(MAXDWORD))+wfd.nFileSizeLow;