Question

这段DELPHI代码是什么意思

procedure TForm1.AllMenuClick(Sender: TObject);
var
sr:TSearchRec;//(1)
FileExt:string;
begin
if selectDirectory('选择目录：','',dir)then
begin
if findfirst(dir+'\*.*',0,sr)=0 then//(2)
begin
listCB.Items.Clear ;
end;
if sr.Attr<>faDirectory then//(3)
begin
fileExt:=lowerCase(extractfileExt(sr.Name));
if(fileext='.wav')or(fileext='.mp3')then
listCB.Items.Add(sr.Name);

end;
while findNext(sr)=0 do//(4)
begin
if sr.Attr<>faDirectory then
begin
fileExt:=lowerCase(extractfileExt(sr.Name));
if(fileext='.wav')or(fileext='.mp3')then
listCB.Items.Add(sr.Name);
end;
end;
end;//listCB is combobox1的name
end;
1.请解释每句的功能含义
2.重点
（1）变量sr:TSearchRec;中TSearchRec是个什么东西，能通过DELPHI查到有关它的解释吗
（2）if findfirst(dir+'\*.*',0,sr)=0 then函数的三个参数怎么理解，＝0代表什么
（3）if sr.Attr<>faDirectory then 中attr什么意思（是那个单词的缩写？）？前缀fa什么意思，整句的意思
（4）while findNext(sr)=0 do句的功能含义

请外行无扰，请高手不要嫌繁琐，因为鄙人尚处于幼儿园水平阿，呵呵

Answer 1

(1).TSearchRec是一个记录类型,在delphi帮助文档下可以看到其定义:
TSearchRec是一个文件信息的纪录(Record)类型
在Windows下原型:
type
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
(2).FindFirst函数在delphi帮助下的定义:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
其中有一句:FindFirst returns 0 if a file was successfully located
也就是说,当成功找到文件时,返回0.
(3).sr.Attr是查找的文件属性(attribute Files).faDiractory是目录文件
整句的意思 如果查找的文件类型是目录文件那么 ...
(4).当文件没有查找完毕(还能查找到下一个文件)..

这些单词和定义其实在delphi的帮助文档中都有定义和详细解释.我觉得楼主在初学delphi时不应该随时让别人帮你解决问题.当初我初学时,有位高人就告诉我,多查查百度,多看看delphi帮助.自己找到的答案才是最好的答案.