delphi 重复文件查找代码

重复文件查找是指在一个文件夹或多个文件夹中查找并识别重复的文件，即文件内容完全相同或文件名完全相同的文件。在Delphi中, 可以使用以下方法来实现重复文件查找的代码：

1. 首先，需要使用以下两个单元来获取文件信息和操作文件：

uses
  SysUtils, Classes;

2. 创建一个过程来查找和比较文件：

procedure FindDuplicateFiles(const FolderPath: string);
var
  Files: TStringList;     // 用于存储文件列表
  HashList: TStringList;  // 用于存储文件哈希值的列表
  I, J: Integer;
  FileStream: TFileStream;
  FileHash: string;
begin
  Files := TStringList.Create;
  HashList := TStringList.Create;
  try
    // 获取文件夹下的所有文件
    FindAllFiles(Files, FolderPath, '*', False);

    // 遍历文件列表
    for I := 0 to Files.Count - 1 do
    begin
      // 打开文件流
      FileStream := TFileStream.Create(Files[I], fmOpenRead);
      try
        // 计算文件的哈希值
        FileHash := GetMD5Hash(FileStream);

        // 检查哈希值是否已经存在，若存在则表示为重复文件
        if HashList.IndexOf(FileHash) <> -1 then
          Writeln('重复文件: ', Files[I])
        else
          HashList.Add(FileHash);  // 若不存在，则将哈希值添加到列表中
      finally
        FileStream.Free;  // 关闭文件流
      end;
    end;
  finally
    Files.Free;     // 释放文件列表
    HashList.Free;  // 释放哈希值列表
  end;
end;

3. 创建一个函数来计算文件的哈希值：

function GetMD5Hash(Stream: TStream): string;
var
  MD5: TIdHashMessageDigest5;
begin
  MD5 := TIdHashMessageDigest5.Create;
  try
    Result := MD5.HashStreamAsHex(Stream);
  finally
    MD5.Free;
  end;
end;

4. 调用重复文件查找过程并指定要查找的文件夹路径：

FindDuplicateFiles('C:\Folder\Path');  // 替换为实际的文件夹路径

以上代码使用MD5哈希算法来计算文件的哈希值，然后比较哈希值来判断文件是否重复。若文件数量较大，可能需要一些时间来完成查找过程。