Получить размер файла в байтах с помощью Delphi

Зарко Гайич имеет опыт работы с SQL и практические знания систем баз данных, таких как MS SQL Server, Firebird, Interbase и Oracle. Он также владеет XML, DHTML и JavaScript.

Размер файла Функция возвращает размер файла в байтах — полезный результат для некоторых приложений обработки файлов в программе Delphi.

Получить размер файла

Функция FileSize возвращает размер файла в байтах; функция возвращает -1, если файл не найден.

// возвращает размер файла в байтах или -1, если не найден.
функция Размер файла (имя файла: широкая строка): Int64;
вар
ср : TSearchRec;
начинать
если FindFirst(fileName, faAnyFile, sr) = 0 тогда
результат: = Int64 (sr.FindData.nFileSizeHigh) шл Int64(32) + Int64(sr.FindData.nFileSizeLow)
еще
результат := -1;
НайтиЗакрыть(ср);
конец;

Когда у вас есть размер файла в байтах, вы можете захотеть отформатировать размер для отображения (КБ, МБ, ГБ), чтобы помочь вашим конечным пользователям понять данные без необходимости конвертировать единицы.