xujj520
xujj520
采纳率0%
2017-02-14 03:36

delphi中的TreeView如果获取value值

30

赋值:TreeView1.Items.AddChildObject(temp,'ABC',TObject(‘1’))

如何获取上面所TObject('1')中的1这个值。

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

2条回答

  • guolei_hm One_Hello_Word 4年前

    具体的是这样
    procedure GetNodeData;
    var
    str:string;
    P:Pointer;
    i:Integer;
    begin
    P := TreeView1.Items[0].Item[0].Data;
    i := PCardinal(@P)^;
    str := Char(i);
    ShowMessage(str);
    end;

    点赞 评论 复制链接分享
  • guolei_hm One_Hello_Word 4年前

    你的那个TObject('1')是个指针类型,这里面你用的又是常量,所以设置的值就成了常量的十六进制值的ASCII码值$31,
    也就是这个指针值就是$31,所以你要把31这个16进制转成10进制,再转成Char就得到这个值了

    点赞 评论 复制链接分享

相关推荐