Obțineți dimensiunea unui fișier în octeți folosind Delphi

Mărime fișier funcția returnează dimensiunea unui fișier, în octeți - un rezultat util pentru anumite aplicații de predare a fișierelor dintr-un program Delphi.

Obțineți dimensiunea fișierului

Funcția FileSize returnează dimensiunea unui fișier din octeți; funcția revine -1 dacă fișierul nu a fost găsit.

// returnează dimensiunea fișierului în octeți sau -1 dacă nu este găsit.
funcţie FileSize (Nume fișier: wideString): Int64;
var
sr: TSearchRec;
începe
dacă FindFirst (fileName, faAnyFile, sr) = 0 apoi
rezultat: = Int64 (sr.FindData.nFileSizeHigh) SHL Int64 (32) + Int64 (sr.FindData.nFileSizeLow)
altfel
rezultat: = -1;
FindClose (sr);
Sfârșit;

Când aveți dimensiunea unui fișier în octeți, poate doriți să formatați dimensiunea pentru afișare (Kb, Mb, Gb) pentru a-i ajuta pe utilizatorii finali să înțeleagă datele fără a fi nevoie să convertească unități.