库存管理软件版1楼: TTreeview的Item.data如何保存数组？

2楼: var
s: array of String;
begin
SetLength(s,3);
s[0] := 0;s[1] := 1; s[2] := 2;
Item.Data := Pointer(s); 如药品进销存表格

3楼: 试过了,不行

4楼: 更正一下，应该是Item.Data := s;
编译通过,不过没有运行

5楼: var
s: array of String;
begin
SetLength(s,3);
s[0]:= ＇＇0＇＇;s[1] := ＇＇1＇＇; s[2] := ＇＇2＇＇;
Items[0].Data :=s;

6楼: 这样不行吧.要取出来怎么办.得不到数据？

库存管理软件版7楼: private
s:array [1..4] of string;

....
...
procedure TForm1.Button3Click(Sender: TObject);
var
tn:ttreenode;
tn1:ttreenode;
begin
s[1]:=＇＇aaa＇＇;
s[2]:=＇＇bbb＇＇;
s[3]:=＇＇ccc＇＇;
s[4]:=＇＇ddd＇＇;
tn:=self.TreeView1.Items.AddFirst(nil,＇＇root＇＇);
tn1:=self.TreeView1.Items.AddChild(tn,＇＇child＇＇);
tn1.Data:=@s;

end;

procedure TForm1.TreeView1DblClick(Sender: TObject);

var
a:string;
aa:array of string;
begin
if ( self.TreeView1.Selected.Text=＇＇child＇＇) then
begin
aa:=pointer(self.TreeView1.Selected.data);
showmessage(aa[3]);
end;
end;


我试了一下可以的
===============================
菜鸟一只，混你点分，说错莫怪~!

8楼: 多人接受答案了。