需要重新写这样的一个通用函数：
procedure scandir(const dir,ext:String;ss:TStrings;const sublevel:Integer=0);
//输入：
//dir: c:\ or c:\dir1\dir2
//ext: *.c or a?b??.c* or *.c|*.cpp|*.h
//sbulevel:子目录的搜索层数，1:只查当前目录；0:所有子目录，层次无限制
//输出：
//ss: 符合要求的文件名的列表（含路径）

谁有现成的吗？？？