我想在treeview的data中存储一个String类型的变量，并读出来！请大家告诉我该怎么做！

Question

var
  temp : integer;temp:=treeview1.selected.data;
caption := inttostr(temp);

Answer 1

建议在TTreeNode中增加:
  private
    FKey: string;
  public
    property Key: string read FKey write FKey;增加节点的时候直接把String类型的值赋给Key,取的时候,通过Node.Key就可以了.

Answer 2

不要使用string强制转换，要用strpas

Answer 3

PInfo = ^TInfo
TInfo = record
  AName: string[32];
  Id: integer;
end;//写入
procedure ......(....)
var
  Info: PInfo;
begin
  New(Info);
  Info^.AName := Table1.FieldByName('Name').AsString;
  Info^.Id := Table1.FieldByName('id').Asinteger;
  TreeView1.Selected.Data := Info;
end;//读取
PInfo(TreeView1.Selected.Data)^.Name;