2009年5月31日
摘要:
FindFirst,FindNext,FindClose.... 搜索个例子给你://遍历文件夹下的文件procedure SearchFileEx(const Dir, Ext: string; Files: TStrings); var Found: TSearchRec; i: integer; Dirs: TStrings; Finished: integer; StopSearch: B... 阅读全文
摘要:
procedure searchfile(path:string);//注意,path后面要有'\'; var SearchRec:TSearchRec; found:integer; begin found:=FindFirst(path+'*.*',faAnyFile,SearchRec); while found=0 do begin if (SearchRec.Name<>'.... 阅读全文