Вычисление размера каталога

Delphi , Файловая система , Директории

uses FileCtrl;

function DirSize(Dir: string): integer;
var
  SearchRec: TSearchRec;
  Separator: string;
  DirBytes: integer;
begin
  Result:=-1;
  if Copy(Dir,Length(Dir),1)='\' then
    Separator := ''
  else
    Separator := '\';
  if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = 0 then
  begin
    if FileExists(Dir+Separator+SearchRec.name) then
      DirBytes := DirBytes + SearchRec.Size
    else
    if DirectoryExists(Dir+Separator+SearchRec.name) then
    begin
      if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
        DirSize(Dir+Separator+SearchRec.name);
    end;
    while FindNext(SearchRec) = 0 do
    begin
      if FileExists(Dir+Separator+SearchRec.name) then
        DirBytes := DirBytes + SearchRec.Size
      else
      if DirectoryExists(Dir+Separator+SearchRec.name) then
      begin
        if (SearchRec.name<>'.') and (SearchRec.name<>'..') then
          DirSize(Dir+Separator+SearchRec.name);
      end;
    end;
  end;
  FindClose(SearchRec);
  Result:=DirBytes;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DirBytes: integer;
begin
  DirBytes := DirSize('c:\windows');
  Form1.Label1.Caption := IntToStr(DirBytes);
end;

Here is the translation of the text into Russian:

Это программный код на Delphi, который рассчитывает общий размер директории и ее поддиректорий. Функция DirSize принимает путь к директории в качестве параметра входных данных, рекурсивно обходит дерево директорий и суммирует размеры всех файлов и директорий.

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

1. Функция DirSize инициализирует результат в -1 (показывающий ошибку) и объявляет несколько переменных: SearchRec для поиска файлов и директорий, Separator для хранения символа разделителя (\ или /) и DirBytes для накопления общего размера.
2. Она проверяет, заканчивается ли входная директория символом разделителя, и устанавливает переменную Separator соответственно.
3. Функция использует FindFirst для поиска файлов и директорий в указанной директории. Если найден матч, она проверяет, существует ли файл или является ли он директорий.
4. Если файл существует, она добавляет его размер к общему размеру DirBytes. Если это директория, она рекурсивно вызывает себя с путем поддиректории в качестве параметра входных данных (используя функцию DirSize).
5. Функция использует цикл (FindNext) для продолжения поиска файлов и директорий до тех пор, пока не будут найдены более матчей.
6. После обработки всех файлов и директорий функция закрывает поиск с помощью FindClose.
7. Результат возвращается как общий размер дерева директорий.

Процедура Button1Click вызывает функцию DirSize с путем 'c:\windows' в качестве параметра входных данных, хранит результат в локальной переменной DirBytes и обновляет надпись на лейбле для отображения общего размера в виде строкового представления с помощью IntToStr.

Некоторые предложения по улучшению:

• Вместо рекурсииconsider использовать цикл для обхода дерева директорий. Рекурсия может привести к ошибкам стека для очень глубоких структур директорий.
• Используйте SysUtils.FindFirstEx вместо FindFirst, который предоставляет более функций и является более эффективным.
• Рассмотрите использование FileGetSize вместо SearchRec.Size для получения размера файла, так как это более надежный метод.
• Добавьте обработку ошибок для случаев, когда входная директория не существует или недоступна.

Вот обновленная версия кода, которая использует цикл и FindFirstEx:

function DirSize(Dir: string): integer;
var
  SearchRec: TSearchRec;
  Separator: string;
  DirBytes: integer;
begin
  Result := -1;
  if Copy(Dir, Length(Dir), 1) = '\' then
    Separator := ''
  else
    Separator := '\';

  DirBytes := 0;
  while FindFirstEx(Dir + Separator + '*', faAnyFile, SearchRec) = 0 do
  begin
    if FileExists(Dir + Separator + SearchRec.Name) then
      DirBytes += FileGetSize(Dir + Separator + SearchRec.Name)
    else
      if DirectoryExists(Dir + Separator + SearchRec.Name) then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
          DirSize(Dir + Separator + SearchRec.Name);
      end;

  FindCloseEx(SearchRec);
  Result := DirBytes;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DirBytes: integer;
begin
  DirBytes := DirSize('c:\windows');
  Form1.Label1.Caption := IntToStr(DirBytes);
end;

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

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

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

:: Главная :: Директории ::