Delphi下遍历文件夹下所有文件的递归算法
摘要：
{-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringListUSE StrUtils Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ; ListBox1.Items:= MakeFileList( 'E:\极品飞车' 阅读全文
posted @ 2011-07-25 22:11 jxgxy 阅读(1323) 评论(0) 推荐(0) 编辑
