在Delphi中,遍历文件夹中的文件可以使用TDirectory类的静态方法GetFiles,它返回一个字符串数组,包含指定文件夹中的所有文件的完整路径。以下是一个示例:
uses
System.IOUtils;
procedure TraverseFolder(const AFolder: string);
var
Files: TArray<string>;
FileName: string;
begin
Files := TDirectory.GetFiles(AFolder);
for FileName in Files do
begin
// 处理文件
ShowMessage(FileName);
end;
end;
你可以调用TraverseFolder过程,传入要遍历的文件夹路径作为参数,然后在for循环中处理每个文件的逻辑。在上面的示例中,每个文件的完整路径会通过ShowMessage函数弹出一个消息框显示出来,你可以根据需要修改为自己的处理逻辑。
辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
推荐阅读: Delphi中怎么使用第三方库