function GetFileSize(namefile: string): Integer;
var
InfoFile: TSearchRec;
AttrFile: Integer;
ErrorReturn: Integer;
begin
AttrFile := $0000003F; {Any file}
ErrorReturn := FindFirst(namefile, AttrFile, InfoFile);
if ErrorReturn <> 0 then
Result := -1 {в случае, если файл не найден}else
Result := InfoFile.Size; {Размер файла в байтах}
FindClose(InfoFile);
end;
Here is the translation of the text into Russian:
Функция Delphi для получения размера файла!
Функция GetFileSize принимает строковый параметр имени файла и возвращает целочисленное значение, представляющее размер файла в байтах.
Вот разбивка кода:
Функция объявляет несколько переменных:
InfoFile: переменная типа TSearchRec, которая будет хранить информацию о найденном файле.
AttrFile: целочисленное значение, которое specifies атрибуты файла для поиска (в этом случае, любой файл).
ErrorReturn: целочисленное значение, которое хранит результат вызова функции FindFirst.
Функция настраивает поиск файла:
Она устанавливает AttrFile в $0000003F, что означает "любой файл" в системе атрибутов Delphi.
Она вызывает FindFirst с параметрами имени файла, атрибутов и InfoFile. Это поиск файла, соответствующего заданным критериям.
Функция возвращает код ошибки (0 или -1), чтобы указать, была ли поисковая операция успешной.
Если файл не найден (ErrorReturn <> 0), функция устанавливает Result в -1, указывая, что файл не существует.
Если файл найден, функция устанавливает Result в значение InfoFile.Size, которое представляет размер файла в байтах.
Наконец, функция вызывает FindClose для освобождения системных ресурсов, связанных с поиском.
Чтобы использовать эту функцию, просто вызовите ее с параметром имени файла в виде строки и присвойте результат переменной:
var
fileSize: Integer;
begin
fileSize := GetFileSize('путь\к\файлу.txt');
if fileSize = -1 then
ShowMessage('Файл не найден!')
else
Memo1.Lines.Add(IntToStr(fileSize) + ' байт');
end;
Этот код отображает размер файла в памятке или сообщении.
В статье описывается функция на языке Паскаль, которая определяет размер файла на компьютере.
