急急急急!!!!!! treeview的问题????????

[kevinworkroom]

我要在treeview中动态增加以以内容：


-1
-11
-111


请不要使用以下的方法：
Tn :=TreeView1.Items.AddChild(nil,'1');
TreeView1.Items.AddChild(Tn,'11');
Tn:=TreeView1.Items[1];
TreeView1.Items.AddChild(Tn,'111');

[Jerry529]

Tn :=TreeView1.Items.AddChild(nil,'1');
Tn:=TreeView1.Items.AddChild(Tn,'11');
TreeView1.Items.AddChild(Tn,'111');

[王集鹄]

方法1 //和楼上没有多大区别
TreeView1.Items.AddChild(
TreeView1.Items.AddChild(
TreeView1.Items.AddChild(nil, '1'),
'11'),
'111'
);

方法2 //利用LoadFromSteam()
procedure TForm1.Button1Click(Sender: TObject);
var
vStringStream: TStringStream;
begin
vStringStream := TStringStream.Create(
'1'#13#10 +
#9'11'#13#10 +
#9#9'111'#13#10);
try
TreeView1.LoadFromStream(vStringStream);
finally
vStringStream.Free;
end;
end;

[WGYKING]

Tn :=TreeView1.Items.AddChild(nil,'1');
Tn:=TreeView1.Items.AddChild(Tn,'11');
TreeView1.Items.AddChild(Tn,'111');