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