随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1267万


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> 
*****************************************}

posted on   万一  阅读(2985)  评论(0编辑  收藏  举报
编辑推荐:
· 开发者必知的日志记录最佳实践
· 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 - 从字符串或数组中复制


点击右上角即可分享
微信分享提示