LAZARUS遍历文件夹/文件

1.遍历所有文件夹。

program getfiles;
uses Classes,sysutils;
var sPath:string;
  L:TStringList;
procedure getdir(path:string; var List:TStringList);//函数的具体描述
var
  SR:TSearchRec;
  i:smallint;
begin
  List.Add(Utf8ToAnsi(path));
  i:=0;
  while i<List.Count do
  begin
  if FindFirst(List[i] + '\*', faAnyFile, SR) = 0 then
  begin
       repeat
             if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr=faDirectory) then
             List.Add(List[i]+'\'+SR.Name);
       until FindNext(SR) <> 0;
       FindClose(SR);
  end;
   inc(i);
  end;
end;
begin
  sPath:='D:\MyDrivers';
  L:=TStringList.Create;
  getdir(sPath,L);
  Writeln(L.Text);
  readln;
end.

2.遍历文件。

program Project1