uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; fVal: Double; begin fVal := 123.456789; xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; //xml.FloatSignificantDigits := ; with xml.Root.NodeNew('item') do begin WriteString('Name', 'AAA'); WriteFloat('Weight', fVal); end; xml.FloatSignificantDigits := 5; with xml.Root.NodeNew('item') do begin WriteString('Name', 'BBB'); WriteFloat('Weight', fVal); end; xml.FloatSignificantDigits := 1; with xml.Root.NodeNew('item') do begin WriteString('Name', 'CCC'); WriteFloat('Weight', fVal); end; xml.FloatSignificantDigits := 9; with xml.Root.NodeNew('item') do begin WriteString('Name', 'DDD'); WriteFloat('Weight', fVal); end; ShowMessage(xml.Root[0][1].Value); //123.457 ShowMessage(xml.Root[1][1].Value); //123.46 ShowMessage(xml.Root[2][1].Value); //100 ShowMessage(xml.Root[3][1].Value); //123.456789 Memo1.Text := xml.WriteToString; xml.Free; end; {*************************************** <?xml version="1.0" encoding="UTF-8"?> <List> <item> <Name>AAA</Name> <Weight>123.457</Weight> </item> <item> <Name>BBB</Name> <Weight>123.46</Weight> </item> <item> <Name>CCC</Name> <Weight>100</Weight> </item> <item> <Name>DDD</Name> <Weight>123.456789</Weight> </item> </List> *****************************************}
分类:
Delphi 与 XML
【推荐】国内首个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 - 从字符串或数组中复制