zwz_good  

2009年4月13日

遍历目录及文件
摘要： procedure SearchFile(path:string); //注意：path实参 字符串后要加 ' \ ' var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(Path+'*.*',faAnyFile,SearchRec); while found=0 ... 阅读全文
posted @ 2009-04-13 15:49 zwz_good 阅读(199) 评论(0) 推荐(0)
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3