Delphi下Treeview控件基于节点编号的访问_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi下Treeview控件基于节点编号的访问

作者：闵涛文章来源：闵涛的学习笔记点击数：1851 更新时间：2009/4/23 18:34:25

'' then
             Break
         else
             pos:=pos+1;
     end;
     Result:=pos-1;
end;

function TCtrlTree.GetTheLastPointPos(inString: String): Integer;
{功能：找到编号中最后的''''.''''的位置
入口参数：inString: String为节点编号
返回：节点编号中最后的''''.''''的位置
}
var
     tmp:Char;
     pos:integer;
begin
     pos:=Integer(StrLen(PChar(inString)));
     while pos>=1 do
     begin
        tmp:=inString[pos];
        if tmp=''''.'''' then
            Break
        else
            pos:=pos-1;
     end;
     Result:=pos;
end;

function TCtrlTree.InsertAsFinalChild(inString: String; inNode: TTreeNode):TTReeNode;
{功能：为当前节点插入一个孩子节点，位置为最后
入口参数：inString: String为节点编号为待插入节点的字符串
inNode: TTreeNode，当前节点
}
begin
Result:=Items.AddChild(inNode,inString);
end;

function TCtrlTree.InsertAsPreviousSibling(inString: String;
inNode: TTreeNode):TTReeNode;
{功能：为当前节点插入一个前导的兄弟节点
入口参数：inString: String为节点编号为待插入节点的字符串
inNode: TTreeNode，当前节点
}
begin
Result:=Items.AddChildFirst(inNode,inString);
end;

end.

上一页 [1] [2]