不明白这个递归什么意思

[worddelphi]

var
Form1: TForm1;
directotynote,fileode:TTreeNode;

implementation

{$R *.dfm}
procedure TForm1.myFind(Bnode:TTreenode);
var
sr:TSearchRec;
Err:Integer;
begin
Err:=FindFirst('*.*',$37,sr);
while(Err=0) do
begin
if sr.Name[1]<>'.' then
begin
if (sr.Attr and fadirectory)=0 then
begin
treeview1.items.AddchildFirst(bnode,sr.Name);
end;
if (sr.Attr and fadirectory)=faDirectory then
begin
filenode:=treeview1.items.AddchildFirst(bnode,sr.name);
ChDir(sr.Name);
Application.ProcessMessages;
MYfIND(FILENODE);
ChDir('..');
end;
end;
err:=FindNext(sr);

end;
end;

procedure TForm1.dib1Change(Sender: TObject; Node: TTreeNode);
begin
label1.caption:=dib1.directory;
TreeView1.ltems.clear;
myfind(directotynote);
end;

end.
请大家给个详细的注释把

[亮剑_]

[Quote=引用楼主 worddelphi 的回复:]
请大家给个详细的注释把
[/Quote]
楼主诸位有详有略，有宏观有细致，不再废话，飘过

[snowflakess]

看的不是很明白

[ffwin]

递归获取所有目录和文件，添加到树节点上

[金卯刀]

并不是所有的文件，要注意：FindFirst('*.*',$37,sr);

[bdmh]

貌似一个循环加载目录文件

[Harryfin]

递归获取所有目录和文件，添加到树节点上

[idecl]

递归获取所有目录和文件，添加到对应的节点上

[kfcoffe]

FindFirst 是用来寻找目标目录下的第一个文件，
FindFirst函数在delphi帮助下的定义:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
其中有一句:FindFirst returns 0 if a file was successfully located
也就是说,当成功找到文件时,返回0.

FindNext 则是寻找下一个
TSearchRec 是一个文件信息的纪录，当FindFirst返回SearchRec时，你可以通过SearchRec.Name获取文件名，以及SearchRec.Size获取文件大小等信息。

[dd_zhouqian]

其实我也不清楚，只知道个形式

procedure proc();
begin
proc();
end;

[dd_zhouqian]

自己调用自己

[acridin]

up

[wuhenghuan]

递归获取所有目录和文件，添加到树节点上