用TreeView遇到的问题(50分)

To Chenxz：感谢你再次答复。可我要多条记录呀。[]

你真的好烦啊：（都说到这个份上了你还不懂[!]
多条记录是在showtv中初始化的啊，上面的代码不就是可以多条记录的吗？
showtv中的while只要两行，就是ChldNode := ...
change中是if。。。

你有没有照我的代码去做啊？？？？

procedure showtv
var myNode:TTreeNode
begin
treeview1.Items.Clear;
rootnode:=treeview1.Items.Add(nil,'信息');
with ADODataSet1 do
begin
Open;first;
[red]/// new(TmpNodeData);[/red]
while not eof do
begin
[red] new(TmpNodeData);[/red]
TmpNodeData^.NodeId:=fieldbyname('省份id').AsInteger;
myNode:=Treeview1.Items.AddChild(rootnode,fieldbyname('省份名称').AsString);
myNode.Data:=TmpNodeData;
next;
end;

close;
end;

接受答案了.