delphi 如何把字符串转化为xml，最好只提供读取就好了，不用保存

Posted 2023-03-21

<?xml version="1.0" encoding="GBK"?>
<软件 用户名="小东" 密码="123" 指令="查询订购记录" 类型="充值软件" 品名="qq充值" 状态="充值成功">
</软件> 这个就是字符串
怎么写成xml，提供读取

转化其实就是按着xml的方式进行写入就可以了！
方法
1。直接按着xml格式写入；
2. 用组件完成写入，TXMLDocument,NativeXml 参考技术A i_xml := Tstringlist.Create;
if not fileexists('Memo.xml') then
i_xml.SaveToFile('Memo.xml');

i_xml.LoadFromFile('Memo.xml');
i_xml.Clear;
i_xml.SaveToFile('Memo.xml');
i_xml.Add('<?xml version="1.0" standalone="yes"?> ');
i_xml.Add('<DATAPACKET Version="2.0"><METADATA><FIELDS>');
i_xml.Add('<FIELD attrname="LinkNo" fieldtype="i4"/>'); //编号
i_xml.Add('<FIELD attrname="Name" fieldtype="i4"/>'); //编号
i_xml.Add('<FIELD attrname="" fieldtype="i4"/>'); //
i_xml.Add('</FIELDS><PARAMS/></METADATA><ROWDATA></ROWDATA></DATAPACKET>');
i_xml.SaveToFile('Memo.xml');
finally
i_xml.Free;
end;

调用
ClientDataSet1.LoadFromFile(ExtractFilePath(Application.ExeName) +
'Memo.xml');