20分，1、请详细解释一下这段程序。2、是不是有错(20分)

把table 的数据映射到 TreeView 中？ (100分 )
table 的内容如下： 欲显示树的图形如下：
id pid name ... aa
1 0 aa |--cc
2 0 bb | |--ee
3 1 cc |--dd
4 1 dd bb
5 3 ee |--ff
6 2 ff
*****************
procedure CreateTree(var ANode : TTreeNode; var pid : integer);

var
id : integer; sname : string;
bmk : TBookMark;
begin
with form1,Query1 do
begin
filter := 'pid=' + inttostr(pid);
while not Eof do
begin
sname := FieldByName('name').AsString;
Anode := Treeview.Items.AddChild(Anode, sname);
id := FieldByName('ID').AsInteger;
bmk := GetBookmark;
CreateTree(ANode,id );
Anode := Anode.Parent;
filter := 'pid=' + inttostr(pid);
if Query1.BookmarkValid( bmk ) then
begin
GotoBookmark(bmk); FreeBookmark(bmk);
end;
next;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
t : TTreeNode;
Id : integer;
begin
treeview.Items.clear;
t := nil; id := 0;
createtree(t,id);//这是在调用上面的自定义函数吧？
end;
*******************

贴回去就可

procedure TForm1.CreateTree(var ANode : TTreeNode; var pid : integer);

来自：cnjyl, 时间：2002-11-14 23:39:00, ID：1433063
贴回去就可
错误：首先您就没声明自定义的函数，
其次该自定义的函数有错误。

嫌分少哇，题也简单哪，大家太贪了吧。

接受答案了.