Get the Size of a File in Bytes Using Delphi

computer programmers discussing coding

Hero Images/Getty Images

The FileSize function returns the size of a file, in bytes -- a useful result for certain file-handing applications within a Delphi program.

Get File Size

The FileSize function returns the size of a file in bytes; the function returns -1 if the file was not found.

// returns file size in bytes or -1 if not found.
function FileSize(fileName : wideString) : Int64;
var
sr : TSearchRec;
begin
if FindFirst(fileName, faAnyFile, sr ) = 0 then
result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
else
result := -1;
FindClose(sr);
end;

When you have the size of a file in bytes, you may wish to format the size for display (Kb, Mb, Gb) to assist your end users in comprehending the data without having to convert units.

Format
mla apa chicago
Your Citation
Gajic, Zarko. "Get the Size of a File in Bytes Using Delphi." ThoughtCo, Feb. 16, 2021, thoughtco.com/file-size-in-bytes-using-delphi-1057888. Gajic, Zarko. (2021, February 16). Get the Size of a File in Bytes Using Delphi. Retrieved from https://www.thoughtco.com/file-size-in-bytes-using-delphi-1057888 Gajic, Zarko. "Get the Size of a File in Bytes Using Delphi." ThoughtCo. https://www.thoughtco.com/file-size-in-bytes-using-delphi-1057888 (accessed March 28, 2024).