OmniXML是XE7提供的新DOM，传说比ADOM还要快，实际操作确实如此，这次我们来做几个文件操作，
首先在控件页上加上TXMLDocument控件，然后给控件命名为XMLDoc，
修改DOMVendor属性为OmniXML即可完成，操作与原来一样，
另外还有MSXML和ADOM，MSXML只能在windows里面用，不能跨平台，就是说你的程序在Android或者iOS下可能出问题，虽然ADOM能够跨平台，但它的效率目前比较慢，下面是几个操作代码：
几个参数说明：
- TPath.DirectorySeparatorChar//路径分隔符，在windows是"\"，在Android是"/"
读取XML文件：
- ifTFile.Exists(AppPath+TPath.DirectorySeparatorChar+AppParamFileName)then
- begin
- //加载XML文件
- XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
- XMLRoot:=XMLDoc.DocumentElement;
- ifXMLRoot<>nilthen
- begin
- XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
- ifXMLNode<>nilthen
- begin
- RememberMe:=XMLNode.AttributeNodes['RememberMe'].NodeValue;
- end;
- end;
- end
- else
- begin
- //没找到文件则创建
- CreateAppParamFile;
- RememberMe:=0;
- end;
创建XML文件：
- //XML初始化
- XMLDoc.Active:=True;
- XMLDoc.Version:='1.0';
- XMLDoc.Encoding:='GB2312';
- //创建根节点
- XMLRoot:=XMLDoc.CreateNode('SoftPreferences');
- XMLDoc.DocumentElement:=XMLRoot;
- //创建节点
- XMLNode:=XMLDoc.CreateNode('LoginInfo');
- XMLDoc.DocumentElement.ChildNodes.Add(XMLNode);
- XMLNode.AttributeNodes.Add(XMLDoc.CreateNode('RememberMe',ntAttribute));
- XMLNode.SetAttributeNS('RememberMe','',0);
- ...
- XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
- XMLDoc.Active:=False;
保存XML文件：
- XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
- XMLDoc.Active:=True;
- XMLRoot:=XMLDoc.DocumentElement;
- ifXMLRoot<>nilthen
- begin
- XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
- ifXMLNode<>nilthen
- begin
- XMLNode.SetAttributeNS('RememberMe',RememberMe);
- end;
- end;
- XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
- XMLDoc.Active:=False;
