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;

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

相关问题

delphi 把文件前缀一样的文件都读出来

您好，要读取文件前缀一样的文件，您可以使用 Delphi 的 TDirectory.GetFiles 方法。该方法可以返回指定文件夹中与指定搜索模式匹配的文件的完全限定路径的数组。

例如，以下代码将返回指定文件夹（FPath）中所有以“example_”为前缀的文件的完全限定路径：

var
  Files: TArray<string>;
begin
  Files := TDirectory.GetFiles(FPath, 'example_*.txt');
end;

其中，“*.txt” 是搜索模式，表示只返回扩展名为 “.txt” 的文件。您可以根据需要更改搜索模式来匹配您想要查找的文件。

Delphi TsringList 读取相同格式的多个文件

以下是一个简单的示例代码，它演示了如何使用 Delphi TStringList 读取相同格式的多个文件：

var
  Files: TStringList;
  Content: TStringList;
  I: Integer;
begin
  Files := TStringList.Create;
  Content := TStringList.Create;
  try
    Files.Add('file1.txt');
    Files.Add('file2.txt');
    Files.Add('file3.txt');

    for I := 0 to Files.Count - 1 do
    begin
      Content.LoadFromFile(Files[I]);
      // 处理读取的文件内容
      // ...
    end;
  finally
    Content.Free;
    Files.Free;
  end;
end;

在上面的代码中，我们首先创建了两个 TStringList 对象，一个用于存储文件名，另一个用于存储文件内容。然后，我们将要读取的文件名添加到 Files 对象中。接下来，我们使用一个 for 循环遍历 Files 列表中的每个文件，并使用 Content.LoadFromFile 方法将其内容读取到 Content 对象中。在读取文件内容后，我们可以对其进行任何操作。在处理完所有文件后，我们释放了两个 TStringList 对象的内存。