Verkrijg de grootte van een bestand in bytes met Delphi

De Bestandsgrootte functie retourneert de grootte van een bestand, in bytes - een nuttig resultaat voor bepaalde toepassingen voor het overhandigen van bestanden binnen een Delphi-programma.

Bestandsgrootte ophalen

De functie FileSize retourneert de grootte van een bestand in bytes; de functie retourneert -1 als het bestand niet is gevonden.

// retourneert de bestandsgrootte in bytes of -1 indien niet gevonden.
functie FileSize (fileName: wideString): Int64;
var
sr: TSearchRec;
beginnen
als FindFirst (fileName, faAnyFile, sr) = 0 vervolgens
resultaat: = Int64 (sr.FindData.nFileSizeHigh) SHL Int64 (32) + Int64 (sr.FindData.nFileSizeLow)
anders
resultaat: = -1;
FindClose (sr);
einde;

Wanneer u de grootte van een bestand in bytes heeft, wilt u misschien de grootte voor weergave (Kb, Mb, Gb) opmaken om uw eindgebruikers te helpen bij het begrijpen van de gegevens zonder eenheden te converteren.