本文整理自网络,侵删。
uses IOUtils,Types;
function FList(const ASourFile: string): TStrings;var a: TStringDynArray; i: integer;begin result := TStringList.Create; a := IOUtils.TDirectory.GetFiles(ASourFile,TSearchOption.soAllDirectories,nil); // 获取一个目录下所有文件名,包括子目录 for i := 0 to Length(a)-1 do result.add(a[i]); // 文件名 + 创建时间end;
procedure TForm1.Button1Click(Sender: TObject);varfilelist:tstringlist;beginfilelist:=tstringlist.Create;filelist.AddStrings(FList('D:\delphizj'));memo1.text:=inttostr(filelist.count);end;
end.
相关阅读 >>
Delphi tpath.combine(); {结合路径}
Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别
Delphi报警声音 beep、messagebeep 和 windows.beep
Delphi 判断一个数组的长度用 length 还是 sizeof ?
更多相关阅读请进入《Delphi》频道 >>