列如把listview的ITEM加载进去成XML的函数

列如把listview的ITEM加载进去成XML的函数

时间:2011-5-30来源:yang 作者: peng点击: 48次

列如把listview的ITEM加载进去成XML的函数
function GetxmlNode: string;
var
  nmm_ss: string;
  nmm_inti: Integer;
  nmm_xmldoc: TXMLDocument;
  root: IXMLNode;
  nmm_xmlnode: IXMLNode;
begin
  nmm_xmldoc := TXMLDocument.Create(Self);
  nmm_xmldoc.LoadFromFile(nmg_strpath + ‘UpdateFree.xml‘);
  root := nmm_xmldoc.DocumentElement;
  root := root.ChildNodes.First;
  root.ChildNodes.Clear;
  for nmm_inti := 0 to ListView1.Items.Count - 1 do
  begin
    nmm_xmlnode := root.AddChild(‘file‘);
    nmm_xmlnode.Attributes[‘name‘] := ListView1.Items[nmm_inti].SubItems.Strings[0];
    nmm_xmlnode.Attributes[‘version‘] := ListView1.Items[nmm_inti].SubItems.Strings[1];
    nmm_xmlnode.Attributes[‘dest‘] := ListView1.Items[nmm_inti].SubItems.Strings[2];
    nmm_xmlnode.Attributes[‘time‘] := ListView1.Items[nmm_inti].SubItems.Strings[3];
  end;
  nmm_xmldoc.SaveToFile(nmg_strpath + ‘UpdateFree.xml‘);
  nmm_xmldoc.Free;
end;