定时生成每天的车辆出入记录XML格式,被放入指点文件夹内.

Question

帮我看以下这段代码总是编译不过
定时生成每天的车辆出入记录XML格式,被放入指点文件夹内.procedure TF_CLXT.BitBtn3Click(Sender: TObject);
var
xml1:TXMLDocument;
NodeXML:IXMLNode;
begin
xml1:=TXMLDocument.Create(application);
xml1.Active:=true;
NodeXML:=xml1.AddChild('Data');
for i:=0 to 5 do
begin
    Dxml:=NodeXML.AddChild('Data',i);
    for  j:=0 to 9 do
        begin
          Vxml:=Dxml.AddChild('aa'+inttostr(j),j);
          if (j mod 3)<>0   then
          Vxml.NodeValue:='ss'+inttostr(j)
          else Vxml.NodeValue:='';
        end;
end ;
    xml1.SaveToFile('D:\aa.xml');
xml1.Free;
end;
请大家帮我看以下这个程序的错误,
是生成XML格式

Answer 1

我给你看个我做的例子，这样你可以参考参考：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;type
  TForm1 = class(TForm)
    XMLDocument1: TXMLDocument;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
 //k: integer;
 nn : IXMLNode;
 vv : IXMLNode;
 kk : String;
 k :IXMLNode;//IXMLNodeList;
 c : Integer;
begin
{k := 8;
k := self.XMLDocument1.DocumentElement.ChildValues['checkdate'];
edit1.Text := Inttostr(k);
}//--添加节点
nn := XMLDocument1.DocumentElement.AddChild('header');
//nn.Attributes[''] := '';
vv := nn.AddChild('receiveflag');
vv.Text := 'jjjj';
vv := nn.AddChild('checkdate');
vv.Text := 'dfd';
XMLDocument1.SaveToFile('aa.xml');//-- 读取节点的值
k := XMLDocument1.DocumentElement.ChildNodes[0];
c := XMLDocument1.DocumentElement.ChildNodes.Count;//edit1.Text := inttostr(c)+XMLDocument1.FileName;
//showmessage(k);
edit1.Text := k.ChildNodes['receiveflag'].Text;
end;procedure TForm1.Button2Click(Sender: TObject);
var
 a : TXMLDocument;
begin
  a:=TXMLDocument.Create(self);
  a.FileName:='http://localhost/xml/web.xml';
  a.SaveToFile('xml.xml');
end;end.注意，记得把XMLDocument1组件的路径设置好。