{"id":876,"date":"2013-05-16T11:24:56","date_gmt":"2013-05-16T03:24:56","guid":{"rendered":"http:\/\/www.awaysoft.com\/taor\/?p=876"},"modified":"2013-05-16T11:24:56","modified_gmt":"2013-05-16T03:24:56","slug":"delphi%e5%88%9b%e5%bb%ba%e5%92%8c%e8%af%bb%e5%8f%96xml%ef%bc%88xml%e7%ae%80%e5%8d%95%e6%93%8d%e4%bd%9c%e4%b8%be%e4%be%8b%ef%bc%89","status":"publish","type":"post","link":"https:\/\/actom.me\/blog\/delphi%e5%88%9b%e5%bb%ba%e5%92%8c%e8%af%bb%e5%8f%96xml%ef%bc%88xml%e7%ae%80%e5%8d%95%e6%93%8d%e4%bd%9c%e4%b8%be%e4%be%8b%ef%bc%89.html","title":{"rendered":"delphi\u521b\u5efa\u548c\u8bfb\u53d6xml\uff08xml\u7b80\u5355\u64cd\u4f5c\u4e3e\u4f8b\uff09"},"content":{"rendered":"

\u8fd9\u7bc7\u6587\u7ae0\u662f\u8f6c\u8f7d\u7684\uff0c\u8865\u5145\u4e00\u4e2a\u5185\u5bb9\uff1a<\/p>\n

TXMLDocument\u5728\u6784\u5efa\u7684\u65f6\u5019\uff0c\u5982\u679c\u9700\u8981\u8bfb\u53d6xml\u6587\u4ef6\uff0c\u90a3\u4e48Create\u7684\u53c2\u6570\u4e00\u5b9a\u8981\u5199\uff0c\u4e0d\u80fd\u662fnil\uff0c\u5426\u5219\u4f1a\u62a5\u9519\uff0c\u5982Xml := TXMLDocument.Create(Application);\u53ea\u8981\u5f15\u7528\u4e86forms\u5355\u5143\uff0cApplication\u5c31\u53ef\u7528\u4e86\u3002<\/p>\n

unit Unit1;<\/p>\n

interface<\/p>\n

uses
\nWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
\nDialogs,XMLDoc,XMLIntf, StdCtrls;<\/p>\n

type
\nTForm1 = class(TForm)
\nButton1: TButton;
\nButton2: TButton;
\nMemo1: TMemo;
\nprocedure Button1Click(Sender: TObject);
\nprocedure Button2Click(Sender: TObject);
\nprivate
\n{ Private declarations }
\npublic
\n{ Public declarations }
\nend;<\/p>\n

var
\nForm1: TForm1;<\/p>\n

implementation<\/p>\n

{$R *.dfm}<\/p>\n

procedure TForm1.Button1Click(Sender: TObject);
\nvar
\nXml: TXMLDocument;
\nRootnode,node : IXMLNode;
\nbegin
\nXml := TXMLDocument.Create(nil);
\n\/\/ Xml.LoadFromFile(‘aaa.xml’);
\ntry
\n\/\/\u52a0\u5165\u7248\u672c\u4fe1\u606f \u2018<?xml version=”1.0″ encoding=”GB2312″ ?> \u2019
\nXml.Active := True;
\nXml.Version := ‘1.0’;
\nXml.Encoding :=’GB2312′;<\/p>\n

Rootnode := Xml.CreateNode(‘CIF_INFO’);
\nXml.DocumentElement := Rootnode;
\nnode := Xml.CreateNode(‘TXNCODE’);
\nRootnode.ChildNodes.Add(node);
\nnode.Text := ‘420001’;
\nnode := Xml.CreateNode(‘RESPCODE’);
\nRootnode.ChildNodes.Add(node);
\nnode.Text := ‘0000’;
\nnode := Xml.CreateNode(‘CIFID’);
\nRootnode.ChildNodes.Add(node);
\nnode.Text := ‘0030209728’;
\nnode := Xml.CreateNode(‘RESCODE’);
\nRootnode.ChildNodes.Add(node);
\nnode.Text := ‘0000’;
\nnode := Xml.CreateNode(‘RESMSG’);
\nRootnode.ChildNodes.Add(node);
\nnode.Text := ”;<\/p>\n

Xml.SaveToFile(‘aaa.xml’);
\nxml.Active := False;
\nshowmessage(‘\u521b\u5efa\u6210\u529f\uff01’);
\nfinally
\nXml.Free;
\nend;
\nend;<\/p>\n

procedure TForm1.Button2Click(Sender: TObject);
\nvar
\nXml: TXMLDocument;
\nRootnode,node : IXMLNode;
\nnodelist:IXMLNodeList;
\nb,c,str :string;
\ni:Integer;
\nbegin
\nXml := TXMLDocument.Create(Application);
\ntry
\nXml.LoadFromFile(‘aaa.xml’);
\nXml.Active := True;<\/p>\n

Rootnode := Xml.DocumentElement;
\nnodeList :=Rootnode.ChildNodes;
\nfor i:=0 to nodelist.Count-1 do
\nbegin
\nif Rootnode.ChildNodes[i].NodeValue = null then
\nbegin
\nc:=’\u7a7a’;
\nend
\nelse
\nbegin
\nc:= Rootnode.ChildNodes[i].NodeValue;
\nend;
\nstr:=str+c+#13#10;
\nend;
\n\/\/b := Rootnode.ChildNodes[ ‘CIFID’].NodeValue;
\nMemo1.Lines.Add(str);
\nxml.Active := False;
\nfinally
\nXml.Free;
\nend;
\nend;
\nend.<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

\u8fd9\u7bc7\u6587\u7ae0\u662f\u8f6c\u8f7d\u7684\uff0c\u8865\u5145\u4e00\u4e2a\u5185\u5bb9\uff1a TXMLDocument\u5728\u6784\u5efa\u7684\u65f6\u5019\uff0c\u5982\u679c\u9700\u8981 … Read More »<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"_links":{"self":[{"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/posts\/876"}],"collection":[{"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/comments?post=876"}],"version-history":[{"count":1,"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/posts\/876\/revisions"}],"predecessor-version":[{"id":877,"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/posts\/876\/revisions\/877"}],"wp:attachment":[{"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/media?parent=876"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/categories?post=876"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/actom.me\/blog\/wp-json\/wp\/v2\/tags?post=876"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}