2020-02-16 标签:获取,目录,文件名,代码,指定,文件夹,文件,实现,如下,procedure,searchfile,path,string,注意,后面,要有,var,searchrec,tsearchrec,found

一：获取指定文件夹的文件 实现代码如下： procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',fa