Question

怎么才能让Delphi遍历一个文件夹以及其子目录。判断两个文件是不是同一个文件还有，怎么让Delphi

怎么才能让Delphi遍历一个文件夹以及其子目录 输入文件夹路径输出一个数组s:array[1..1000] of string s[i]为文件路径。还有，怎么判断两个文件是不是同一个文件？

Answer 1

var
r:TsearchRec;
filelist:Tstringlist;
i:integer;
begin
filelist:=Tstrintlist.creat;
if findfirst(文件夹路径+'*.*',faanyfile,r)=0 then filelist.add(r.name);
while findnext(r)=0 do
filelist.add(r.name);
findclose(r);
//这样filelist中就保存了你输入的文件夹下的所有文件，我下面显示在一个memo组件中了
for i:=0 to filelist.count-1 do
begin
memo1.lines.text:=memo1.lines.text+filelist[i]+#13;
end;
filelist.free;
end;