求一文件查找函数

Question

找出指定目录下的所有以.txt结尾的文件
findSch(path:sting;Fname:string):Tstrings;path 要查找的目录 Fname 文件扩展名 
 
包括子目录函数呀,老大们不知明白否
在线等~~

Answer 1

procedure tform1.findsch(path:sting;Fname:string);
var src:tsearchrec;
begin
if findfirst(path+'*'+fname,faanyfile,src)=0 then begin
repeat
listbox1.items.add(src.name);
until findnext(src)<>0;
findclose(src);
end;
end;