[请教]如何列出某目录下扩展名是txt的所有文件？ ( 积分: 20 )

不是用组合框，而是用代码自动取。Thanks.

procedure TForm1.GetFile(spath:String);
var
sr:TSearchRec;
begin
if FindFirst(sPath,faAnyFile,sr)=0 then
repeat
if (sr.Name='.') or (sr.Name='..') then continue
else if ((sr.Attr and faDirectory)=sr.Attr) then continue//目录
else if ((sr.Attr and faArchive)=sr.Attr) then //文件
if UpperCase(copy(sr.name,lenth(sr.name)-3,4))='.TXT' then //找到
until FindNext(sr)<>0 ;
FindClose(sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
sr: TSearchRec;
FilePath:string;
begin
if SelectDirectory('请选择目录','d:/',FilePath) then
begin
i := FindFirst(FilePath + '/*.txt',faAnyFile,sr) ;
while i = 0 do
begin
listBox1.Items.Add(sr.Name);
i := FindNext(sr);
end;
end;

end;

谢谢楼上的两位大侠，我研究一下

多人接受答案了。