谁能给我一个delphi6读取xml格式的INI文件的例程

Question

什么意思? 我说得不清楚吗？
我初学delphi的，请高手指点。 
（自己up一下）

Answer 1

XML本身不是一种文档格式.
它只是一种文档格式的规范...
差不多可以叫它是文档格式的格式..不知道你说的那种XML..INI 具体格式是什么.就用一般的XML文件读入就行了...
如果想省力..可以用一下XML Data Binding..直接生成相关的DELPHI代码.
非常轻松.

Answer 2

我的文件就要和一般的ini文件一样，分段就可以了。主要放些系统参数比如[database]
aaa = 1999
bbbb= 2000
[font]
sss = asda
ddd = wewqeq当然这不是xml的格式，我要把它变成xml格式。
问题是，1 变成xml格式，文件是什么样的 2 用delphi怎么读取
谢谢

Answer 3

格式你自己决定，下面是一个例子：
<?xml version="1.0" encoding="gb2312"?>
<root>
 <database>
   <aaa>1999</aaa>
   <bbbb>2000</bbb>
 </database>
 <font>
   <sss>asda</sss>
   <ddd>wewqeq</ddd>
 </font>
</root>
读取的话用xmldocument或者楼上的方法，在csdn文档中心有delphi读取xml文档的详细说明。

Answer 4

<ini>
 <database aaa="1999" bbb="2000"/>
 <font sss="asds" ddd="wewqeq"/>
</ini>godblessu(上帝保佑), 象这样方式也行.

Answer 5

写INI文件:var
  vRootNode:IXMLNode;
  vNode:    IXMLNode;
begin
  with XMLDocument1 do
  begin
    Active:=true;
    vRootNode:=AddChild('ini');
    vNode:=vRootNode.AddChild('database');
    vNode.Attributes['aaa']:=1999;
    vNode.Attributes['bbb']:=2000;
    vNode:=vRootNode.AddChild('font');
    vNode.Attributes['sss']:='asda';
    vNode.Attributes['ddd']:='wewqeq';//    ShowMessage(XML.Text);
    SaveToFile(FName);

Answer 6

读INI文件....实际应用时候自己补充必要的判断.var
  vRootNode:IXMLNode;
  vNode:    IXMLNode;  aaa:integer;
  bbb:Integer;
  sss:string;
  ddd:string;
begin
  with XMLDocument1 do
  begin
    Active:=true;
    LoadFromFile(FName);
    vRootNode:=DocumentElement;
    if vRootNode.NodeName='ini' then
    begin
      vNode:=vRootNode.ChildNodes.FindNode('database');
      aaa:=vNode.Attributes['aaa'];
      bbb:=vNode.Attributes['bbb'];
      vNode:=vRootNode.ChildNodes.FindNode('font');
      sss:=vNode.Attributes['sss'];
      ddd:=vNode.Attributes['ddd'];
//      ShowMessage(ddd);
    end;
  end;