数据库字段:
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呢?
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呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货