12 2014 档案

DELPHI XE2 遍历子目录及文件《转》
摘要：function MakeFileList(Path,FileExt:string):TStringList ;var sch:TSearchrec;begin Result:=TStringlist.Create; if rightStr(trim(Path), 1) '\' then ... 阅读全文
posted @ 2014-12-31 16:16 冰意 LceMeaning 阅读(329) 评论(0) 推荐(0)