张志峰的博客

水滴石川，积少成多。

导航

2016年8月7日

delphi获取目录下所有文件名

摘要： procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); w 阅读全文

posted @ 2016-08-07 13:41 ╰★张志峰★╮ 阅读(4107) 评论(0) 推荐(0)