2013年10月11日
遍历指定目录及其子目录下所有文件
摘要： function ReturnFiles(slFilePath: string):TStringList;var Sr : TSearchRec; Err : integer;begin result:=TStringList.Create; if slFilePath='' then exit; if RightStr(slFilePath,1)'\' then slFilePath:=slFilePath+'\'; Err:=FindFirst(slFilePath+'*', faAnyFile, Sr) ; While (E 阅读全文
posted @ 2013-10-11 16:15 胖达没有海 阅读(503) 评论(0) 推荐(0)