Как определить размер файла 2

Delphi , Файловая система , Файлы

Автор: Andrey

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 принимает строковый параметр имени файла и возвращает целочисленное значение, представляющее размер файла в байтах.

Вот разбивка кода:

1. Функция объявляет несколько переменных:
   • InfoFile: переменная типа TSearchRec, которая будет хранить информацию о найденном файле.
   • AttrFile: целочисленное значение, которое specifies атрибуты файла для поиска (в этом случае, любой файл).
   • ErrorReturn: целочисленное значение, которое хранит результат вызова функции FindFirst.
2. Функция настраивает поиск файла:
   • Она устанавливает AttrFile в $0000003F, что означает "любой файл" в системе атрибутов Delphi.
   • Она вызывает FindFirst с параметрами имени файла, атрибутов и InfoFile. Это поиск файла, соответствующего заданным критериям.
   • Функция возвращает код ошибки (0 или -1), чтобы указать, была ли поисковая операция успешной.
3. Если файл не найден (ErrorReturn <> 0), функция устанавливает Result в -1, указывая, что файл не существует.
4. Если файл найден, функция устанавливает Result в значение InfoFile.Size, которое представляет размер файла в байтах.
5. Наконец, функция вызывает FindClose для освобождения системных ресурсов, связанных с поиском.

Чтобы использовать эту функцию, просто вызовите ее с параметром имени файла в виде строки и присвойте результат переменной:

var
  fileSize: Integer;
begin
  fileSize := GetFileSize('путь\к\файлу.txt');
  if fileSize = -1 then
    ShowMessage('Файл не найден!')
  else
    Memo1.Lines.Add(IntToStr(fileSize) + ' байт');
end;

Этот код отображает размер файла в памятке или сообщении.

В статье описывается функция на языке Паскаль, которая определяет размер файла на компьютере.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::