デルファイXML

ユニットUnit1は、

インターフェース

用途
  Winapi.Windows、Winapi.Messages、System.SysUtils、System.Variants、System.Classes、Vcl.Graphics、
  Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrls、XMLDOC、XMLIntf。

入力
  TForm1 = クラス（TFormは）
    BTN1：のTButtonと、
    BTN2：TButtonの。
    mmo1：TMemoオブジェクト。
    手順btn1Click（送信者：TObjectを）;
    手順btn2Click（送信者：TObjectを）;
  プライベート
    { プライベート宣言} 
  公共
    { 公開宣言} 
  エンド。

VAR 
  をForm1：TForm1; 

実装

{ $ R * .DFM } 

手順TForm1.btn1Click（送信者：TObjectを）。
VAR 
のXml：にTXMLDocument。
ルートノード、ノード：IXMLNode; 
開始
：XML =にTXMLDocumentを。作成（ゼロ）。
// Xml.LoadFromFile（ 'aaa.xml'）; 
試し
// 加入版本信息'<XMLバージョン= "1.0"エンコード= "2312"？>' 
Xml.Active：= 真; 
Xml.Version： = ' 1.0 ' ; 
Xml.Encoding： = ' GB2312 ' 。

ルートノード： = Xml.CreateNode（' CIF_INFO ' ）。
Xml.DocumentElement： = ルートノード。
ノード： = Xml.CreateNode（' TXNCODE ' ）。
Rootnode.ChildNodes.Add（ノード）。
node.Text： = ' 420001 ' ; 
ノード： = Xml.CreateNode（' RESPCODE ' ）。
Rootnode.ChildNodes.Add（ノード）。
node.Text： = ' 0000 ' ; 
ノード： = Xml.CreateNode（' CIFID ' ）。
Rootnode.ChildNodes.Add（ノード）。
node.Text： = ' 0030209728 ' ;
node := Xml.CreateNode('RESCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '0000';
node := Xml.CreateNode('RESMSG');
Rootnode.ChildNodes.Add(node);
node.Text := '';

Xml.SaveToFile('aaa.xml');
xml.Active := False;
showmessage('创建成功！');
finally
Xml.Free;
end;
end;



procedureTForm1.btn2Click（送信者：TObjectを）;
VAR 
のXml：にTXMLDocument。
ルートノード、ノード：IXMLNode; 
ノードリスト：IXMLNodeList。
B、C、STR：文字列; 
I：整数; 
開始
：XML =にTXMLDocumentを。作成（応用）。


してみてください
Xml.LoadFromFile（' aaa.xmlを' ）; 
Xml.Active： = 真; 

ルートノード： = Xml.DocumentElement。
NodeList： = Rootnode.ChildNodesを。
 以下のため =：I 0  に nodelist.Count- 1が 行う
    始める
      場合  Rootnode.ChildNodes [i]は.NodeValue = nullはその後、
         開始
           はC： = ' 空' 。
         終了
         他
         始める
           Cを： = Rootnode.ChildNodes [i]の.NodeValue。
         エンド; 
      STR： = STR + C +＃13＃10 。
    エンド;
// B：= Rootnode.ChildNodes [ 'CIFID']のnodeValue;。
mmo1.Lines.Add（STR）。
xml.Active： = falseは、
最後に
Xml.Free; 
エンド;
エンド; 

終わり。