Delphi 快速初始化功能树(cxTreeView)

最新推荐文章于 2024-02-26 09:22:31 发布

Qiu_SmileToLife

最新推荐文章于 2024-02-26 09:22:31 发布

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/m0_37467088/article/details/77750622

版权

该博客介绍了一个使用Delphi快速初始化cxTreeView组件的方法，通过读取Menu.xml文件来构建功能树。首先检查文件是否存在，然后清空现有树节点，接着创建并解析XML文档，遍历节点以构建树形结构。

摘要由CSDN通过智能技术生成

//快速初始化功能树
procedure InitTree;
var
doc: IXMLDOMDocument;
Node, ChildNode: IXMLDOMNode;
NodeList: IXMLDOMNodeList;
i, Index: Integer;
id,mc,parentid,level: string;
List: TStringList;
TreeNode: TTreeNode;
begin
if not FileExists(applicationDir + ‘Menu.xml’) then
begin
MsgBox(‘请确认文件Menu.xml是否存在!’);
Exit;
end;
cxTreeView.Items.BeginUpdate;
try
cxTreeView.Items.Clear;
List := TStringList.Create;
doc := CoDOMDocument.Create;
try
List.Sorted := True;

  doc.load(applicationDir + Menu.xml');

  NodeList := doc.selectNodes('CKTS/SC/item');
  for i := 0 to NodeList.Length - 1 do
  begin
    Node := NodeList.Item[i].Attributes.getNamedItem('id');
    if Node = nil then Break;
    id:= Node.text;

    Node := NodeList.Item[i].Attributes.getNamedItem('mc');