Ottieni la dimensione di un file in byte usando Delphi

Il Dimensione del file La funzione restituisce la dimensione di un file, in byte, un risultato utile per alcune applicazioni di gestione dei file all'interno di un programma Delphi.

Ottieni dimensioni file

La funzione FileSize restituisce la dimensione di un file in byte; la funzione restituisce -1 se il file non è stato trovato.

// restituisce le dimensioni del file in byte o -1 se non trovato.
funzione FileSize (fileName: wideString): Int64;
var
sr: TSearchRec;
inizio
Se FindFirst (fileName, faAnyFile, sr) = 0 poi
risultato: = Int64 (sr.FindData.nFileSizeHigh) SHL Int64 (32) + Int64 (sr.FindData.nFileSizeLow)
altro
risultato: = -1;
FindClose (sr);
fine;

Quando hai la dimensione di un file in byte, potresti voler formattare la dimensione del display (Kb, Mb, Gb) per aiutare gli utenti finali a comprendere i dati senza dover convertire le unità.