Delphi XML解析、使用TreeView呈现效果


本文整理自网络,侵删。

 
首先用到TXMLDocument控件;
Memo来显示XML文件,

TreeView来呈现元素;

源代码:

Procedure TForm2.Button1Click(Sender: TObject);
Begin
    XMLDocument1.LoadFromFile('E:\template1.xml');
    Memo1.Font.Size :=15;
    Memo1.Align := TAlignLayout.alLeft;
    Memo1.Lines := XMLDocument1.XML; {查看}
End;

Procedure TForm2.Button2Click(Sender: TObject);
Var
    nodeList: IXMLNodeList;
    node: IXMLNode;
    num,i: Integer;
    Item: TTreeViewItem;
    Item2 : TTreeViewItem;
    Item3 : TTreeViewItem;
Begin
    TreeView1.Align := TAlignLayout.alRight;
    TreeView1.AlternatingRowBackground := True;

    Item := TTreeviewItem.Create(Self);

//根元素
    Item.Parent := TreeView1;
    Item.Text := XMLDocument1.DocumentElement.Attributes['备注'];
    Item.Font.Size :=22;
//子节点
    nodeList := XMLDocument1.DocumentElement.ChildNodes;
    num := nodeList.Count;
    For i := 0 To num - 1 Do
    Begin
        Item2 := TTreeviewItem.Create(Self);
        Item2.Parent := Item;
        Item2.Text := nodeList[i].Attributes['职务'];
//子元素的属性
        Item3 := TTreeviewItem.Create(Self);
        Item3.Parent := Item2;
        Item3.Text := nodeList[i].ChildValues['姓名'];
        Item3 := TTreeviewItem.Create(Self);
        Item3.Parent := Item2;
        Item3.Text := nodeList[i].ChildValues['性别'];
        Item3 := TTreeviewItem.Create(Self);
        Item3.Parent := Item2;
        Item3.Text := nodeList[i].ChildValues['年龄'];
    End;
End;
 
 这是测试的效果图;


来源:https://www.cnblogs.com/lingzhiwen/p/3573691.html

相关阅读 >>

Delphi 三个消息函数的威力

Delphi编程用流来读取txt文件中的数据

检测是否按下键盘或鼠标,如果超过5分钟没有操作则认为用户已经离开

Delphi有无生成空格的函数,like vb的space(1)

Delphi dbgrid刷新数据

Delphi createdir 建立文件夹路径

Delphi 进程通讯之wm_copydata 发送程序(senddata.exe)

Delphi中获取guid的函数

Delphi get_hd_serial() 获得磁盘驱动器序列号

Delphi用idtcpserver和idtcpclient传输文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...