2014年12月31日
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 阅读(324) 评论(0) 推荐(0)