- 博客(1)
- 资源 (3)
- 收藏
- 关注
原创 获取指定目录下的所有文件名(包括子目录)
procedure GetFileListE(MainPath:string;FileList:TStrings);var Result: Integer; SearchRec: TSearchRec; sMainpath: String;begin if MainPath[Length(MainPath)]=/ then sMainpath:=MainPa
2008-12-16 15:21:00 875
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人