转化其实就是按着xml的方式进行写入就可以了!
方法
1。直接按着xml格式写入;
2. 用组件完成写入,TXMLDocument,NativeXml
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(' ');
i_xml.Add('
i_xml.Add('
i_xml.Add('
i_xml.Add('
i_xml.Add('
i_xml.SaveToFile('Memo.xml');
finally
i_xml.Free;
end;
调用
ClientDataSet1.LoadFromFile(ExtractFilePath(Application.ExeName) +
'Memo.xml');