用XML文件替代INI配置文件 以前用INI文件保存程序的一些配置信息,但因为有时候感觉INI不能有层次,想用XML来代替,请问要如何做,网上找了好久,总是没头绪,请大侠指定一二,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 建议看那本红色的XML高级编程 只是用XML来保存配置信息而已,找找那本书看看先 这是个好想法俺也做了个TXMLIni,完全兼容TIniFile的接口,不过通常Ini足够了也是也没用XML了 这是个好想法俺也做了个TXMLIni,完全兼容TIniFile的接口,不过通常Ini足够了也是也没用XML了===================================能否参考参考你的TXMLIni啊? 既然完全兼容TIniFile,可能用起来也没什么特别的吧,和TIniFile一样不是分层的。 用TXMLDOCUMENT 控件 XML.LoadFromFile(name.xml'); // 导入xml文件 XML.Active := True; rootNode := xml.ChildNodes.FindNode('sss'); // 得到根节点, if not Assigned(rootNode) then Exit; NodeNum := rootNode.ChildNodes.Count; for i := 0 to NodeNum - 1 do begin subNode := rootNode.ChildNodes.Nodes[i]; if subNode.NodeName = 'conn-orastr' then begin ADOCN1.ConnectionString := subNode.NodeValue; end; end; end; XML.Active := False;XML文件<?xml version="1.0" encoding="GB2312"?><sss> <!-- 注释 --> <conn-orastr>dytfyufu</conn-orastr></sss> update多个字段 我想学习做个东西,视频聊天室的东西。但是总是没有思路啊!谁能帮哥们提点建议啊 fastreport3如何打印余行格子 急,在线等!!!!dbgrid修改问题!!! 看凤凰卫视的窦文淘是怎么说日本人的,爽![视频] 如何把数据表转换成想要的格式? EnumChildWindows和EnumChildProc怎么用啊? BDE我Query不支持Left函数吗? Delphi5.0开发的SQL数据库的分发 请教关于报表自定义问题 delphi新手,问几个比较简单的问题 如何删除Windows目录下的指定文件
XML高级编程
俺也做了个TXMLIni,完全兼容TIniFile的接口,不过通常Ini足够了
也是也没用XML了
俺也做了个TXMLIni,完全兼容TIniFile的接口,不过通常Ini足够了
也是也没用XML了
===================================能否参考参考你的TXMLIni啊?
XML.LoadFromFile(name.xml'); // 导入xml文件
XML.Active := True;
rootNode := xml.ChildNodes.FindNode('sss'); // 得到根节点,
if not Assigned(rootNode) then
Exit;
NodeNum := rootNode.ChildNodes.Count;
for i := 0 to NodeNum - 1 do
begin
subNode := rootNode.ChildNodes.Nodes[i];
if subNode.NodeName = 'conn-orastr' then
begin
ADOCN1.ConnectionString := subNode.NodeValue;
end;
end;
end;
XML.Active := False;
XML文件
<?xml version="1.0" encoding="GB2312"?>
<sss>
<!-- 注释 -->
<conn-orastr>dytfyufu</conn-orastr></sss>