delphi 得到相同前缀的文件

您好，可以使用 Delphi 中的 TDirectory 类来获取指定目录下的所有文件，然后使用字符串处理函数来比较文件名的前缀是否相同。

以下是一个示例代码，它会输出指定目录下所有文件名的前缀相同的文件名：

var
  dir: string;
  prefix: string;
  files: TStringDynArray;
  filePrefix: string;
  i: Integer;
begin
  dir := 'C:\MyFolder'; // 指定目录
  prefix := 'file'; // 指定前缀

  files := TDirectory.GetFiles(dir); // 获取目录下所有文件

  for i := 0 to Length(files) - 1 do
  begin
    filePrefix := Copy(ExtractFileName(files[i]), 1, Length(prefix)); // 获取文件名的前缀
    if SameText(filePrefix, prefix) then // 比较前缀是否相同
    begin
      // 输出前缀相同的文件名
      Writeln(ExtractFileName(files[i]));
    end;
  end;
end;

请注意，上述代码仅比较文件名的前缀是否相同，而不考虑文件内容是否相同。如果需要比较文件内容是否相同，可以使用文件的哈希值进行比较。