Größe einer Datei bestimmen

[himitsu]

Delphi-Quellcode:

Result := (Int64(wfd.nFileSizeHigh) shl 32) or wfd.nFileSizeLow; 

// oder

Int64Rec(Result).Lo := wfd.nFileSizeLow; 
Int64Rec(Result).Hi := wfd.nFileSizeHigh;

Und nein, das mit MAXDWORD funktioniert auch ... also wenn man es richtig macht. :angle2:

Delphi-Quellcode:

Result := (Int64(wfd.nFileSizeHigh) * (Int64(MAXDWORD) + 1)) + Int64(wfd.nFileSizeLow);

Aber wenn man weiß, wie in einem 32-Bit-Delphi die 64-Integeroperationen aufgebaut sind, dann läßt man soeinen Mist wie * (MUL), DIV und MOD.

[Furtbichler]

Zitat:

Zitat von Luckie (Beitrag 109964)

Hm. Und warum verschweigst du ihm den Rest:

Zitat:

Note: FileSize can't be used on a text file.

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!

Ach was.

Delphi-Quellcode:

Function TheSizeOf (aFileName : String) : Integer;
Var
 f : File Of Byte;

begin
  AssignFile(f,aFileName);
  ReSet(f);
  MyFileSize := FileSize(F);
  closefile(F);
End;

funktioniert. (Bis 2GB?)

Mir ist neu, das das vom Inhalt abhängt. Die OH besagt übrigens, das 'F' nicht vom Typ 'Textfile' sein darf/kann.

Zitat:

Zitat von fkerber (Beitrag 109966)

Also Merkregel: :arrow: Hilfe immer ganz lesen :lol:

Yo, und anzweifeln. Immer anzweifeln und selber probieren.

[himitsu]

Nur zum Auslesen der Dateigröße besser nicht über das System.FileSize gehn, denn was mag wohl pasieren, wenn man Zugriffsrechte besitzt oder irgendwer die Datei gerade geöffnet hat?


Was mich aber extrem verwundert:
- Bei den Dateifunktionen in der SysUitls hat man tatsächlich die Dateigröße vergessen zu implementieren. :shock:
- Und sogar bei den neuen Funktionen der IOUtils.TFile hat man das total vergessen.