查找文件
摘要：
1 procedure TForm2.FindFile(APath: string; Filter: string; Rev: TStrings; 2 SubDir: Boolean); 3 var 4 R: Integer; 5 F: TSearchRec; 6 begin 7 if APath[Length(APath)] <> '\' then 8 APath := APath + '\'; 9 R := FindFirst(APath + '*.*', faAnyFile, F);10 while R = 0 do11 beg 阅读全文
posted @ 2011-11-30 14:40 easy33 阅读(342) 评论(3) 推荐(0) 编辑
