怎样获得一个文件夹里的文件数,并且分别得到里面的文件名?(50分)

怎样获得一个文件夹里的文件数,并且分别得到里面的文件名?

　　
先介绍两个函数：
FindFirst 查找指定路径里指定类型的第一个文件，当然可以是所有类型。返回0表示成功。
FindNext 查找同路径同里类型的下一个文件。

于是
function GetFileCount(ThePath:string):Integer;
var
num:Integer;
sr:TSearchRec;
Begin
num:=0;
if (FindFirst(ThePath,类型掩码,sr)=0) then
begin
sr:=sr+1;
While (FindNext(sr)=0) do
sr:=sr+1;
end;
result:=num;
end;