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 阅读(194) 评论(0) 推荐(0) 编辑


Copyright © 2024 zwz_good Powered by .NET 9.0 on Kubernetes 博客园

导航

2009年4月13日