uses NativeXml; var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item>' + '<item ID="No.3" age="33">王五</item>' + '</List>'; procedure TForm1.FormCreate(Sender: TObject); begin xml := TNativeXml.Create(Self); xml.XmlFormat := xfReadable; xml.ReadFromString(xmlStr); {!} Memo1.Text := xml.WriteToString; end; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.1" age="11">张三</item> <item ID="No.2" age="22">李四</item> <item ID="No.3" age="33">王五</item> </List> *****************************************} {插入、删除} procedure TForm1.Button2Click(Sender: TObject); begin xml.ReadFromString(xmlStr); xml.Root.NodeInsert(1, xml.NodeNewText('item', '赵六')); xml.Root.NodeDelete(xml.Root.NodeCount - 1); Memo1.Text := xml.WriteToString; end; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.1" age="11">张三</item> <item>赵六</item> <item ID="No.2" age="22">李四</item> </List> *****************************************} {移除} procedure TForm1.Button3Click(Sender: TObject); begin xml.ReadFromString(xmlStr); xml.Root.NodeRemove(xml.Root[0]); Memo1.Text := xml.WriteToString; end; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.2" age="22">李四</item> <item ID="No.3" age="33">王五</item> </List> *****************************************} {交换} procedure TForm1.Button4Click(Sender: TObject); begin xml.ReadFromString(xmlStr); xml.Root.NodeExchange(0, 1); Memo1.Text := xml.WriteToString; end; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.2" age="22">李四</item> <item ID="No.1" age="11">张三</item> <item ID="No.3" age="33">王五</item> </List> *****************************************} {提取} procedure TForm1.Button5Click(Sender: TObject); var node: TXmlNode; begin xml.ReadFromString(xmlStr); node := xml.Root.NodeExtract(xml.Root[1]); Memo1.Text := node.WriteToString; Memo1.Lines.Add('---------------------------------------'); Memo1.Lines.Add(xml.WriteToString); end; {*************************************** <item ID="No.2" age="22">李四</item> --------------------------------------- <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.1" age="11">张三</item> <item ID="No.3" age="33">王五</item> </List> *****************************************} {获取位置} procedure TForm1.Button6Click(Sender: TObject); var n1,n2: Integer; begin xml.ReadFromString(xmlStr); n1 := xml.Root.NodeIndexOf(xml.Root[xml.Root.NodeCount-1]); ShowMessage(IntToStr(n1)); //2 n2 := xml.Root.NodeIndexOf(xml.Root[xml.Root.NodeCount]); ShowMessage(IntToStr(n2)); //-1 end; procedure TForm1.Button7Click(Sender: TObject); var node: TXmlNode; begin xml.ReadFromString(xmlStr); node := xml.Root.NodeFindOrCreate('item'); ShowMessage(node.WriteToString); //<item ID="No.1" age="11">张三</item> node := xml.Root.NodeFindOrCreate('张三'); ShowMessage(node.WriteToString); //<张三/> Memo1.Text := xml.WriteToString; end; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.1" age="11">张三</item> <item ID="No.2" age="22">李四</item> <item ID="No.3" age="33">王五</item> <张三/> </List> *****************************************} procedure TForm1.Button8Click(Sender: TObject); var node: TXmlNode; begin xml.ReadFromString(xmlStr); node := xml.Root[0]; node.Clear; Memo1.Text := xml.WriteToString; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item/> <item ID="No.2" age="22">李四</item> <item ID="No.3" age="33">王五</item> </List> *****************************************} xml.Root.DeleteEmptyNodes; Memo1.Lines.Add('---------------------------------------'); Memo1.Lines.Add(xml.WriteToString); {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item ID="No.2" age="22">李四</item> <item ID="No.3" age="33">王五</item> </List> *****************************************} xml.Root.Clear; Memo1.Lines.Add('---------------------------------------'); Memo1.Lines.Add(xml.WriteToString); {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List/> *****************************************} xml.Clear; Memo1.Lines.Add('---------------------------------------'); Memo1.Lines.Add(xml.WriteToString); {*************************************** *****************************************} end;
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
· 阿里最新开源QwQ-32B,效果媲美deepseek-r1满血版,部署成本又又又降低了!
· 开源Multi-agent AI智能体框架aevatar.ai,欢迎大家贡献代码
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
2008-03-25 System.Insert - 插入字符串
2008-03-25 System.Delete - 从字符串中删除
2008-03-25 System.Copy - 从字符串或数组中复制