根据数据库内容动态生成TreeView

Question

数据库字段：
AutoId:int    自动ID
cPid:int      父节点ID
cDescription  节点描述
type
  TreeViewValue=Record
    cPid:integer;
    cDescription:string;
var
  TreeViewValue1,TreeViewValue2:^TreeViewValue;procedure TFrmMain.AddTreeViewNode(Tree:TTreeView;IsSubTag:integer);
var
  CurNode:TTreeNode;
begin
  if Tree1.Selected=nil then Exit;
  if SameText(Trim(edtDescription.Text),'') then Exit;  Tree1.SetFocus;
  New(TreeViewValue1);
  CurNode:=Tree1.Selected;
  TreeViewValue1:=CurNode.Data;  New(TreeViewValue2);
  TreeViewValue2.cDescription:=Trim(edtDescription.Text);  case IsSubTag of
  0://同级节点
    begin
      TreeViewValue2.cPid:=TreeViewValue2.cPid;
    end;
  1://下级节点
    begin
      TreeViewValue2.cPid:=TreeViewValue2.cPid+1;
    end;
  end;  SaveTreeViewNodeInfor(TreeViewValue2^);//保存节点信息
end;
大家帮忙看看，为啥保存后下级节点cPid是一串数字，而不是原节点的cPid+1呢？

Answer 1

看下cPid的类型 如果为string 肯定就是一串数字了你转化为整型再相加