请问XML文件怎么解析？？200分决不食言

Question

<?xml version="1.0" encoding="GB2312"?>
<Cofcosms >
<Result>
<errCode>
005
</errCode>
<Message>
server error, please contact with the admin
</Message>
</Result>
</Cofcosms>
在这个XML文件中怎么取出005和server error, please contact with the admin
来啊？？

Answer 1

TXMLDocument就能搞定http://lysoft.7u7.net

Answer 2

我知道用TXMLDocument就能搞定，
但不知道怎么用，有人知道吗？？很急啊。

Answer 3

var Node: IXMLNode;
    i: Integer;
begin
  Node:= XMLDocument1.DocumentElement.ChildNodes[0];
  for i:= 0 to Node.ChildNodes.Count - 1 do
    Memo1.Lines.Add(Node.ChildNodes[i].NodeValue);
end;

Answer 4

 linzhengqun(风。爱的翔舞)
不行，有错误。

Answer 5

不会吧，我自己试行了再发的
哦，你是不是没有把XML文件加载进去啊。1.在窗体中放一个TXMLDocument控件, 将其属性FileName设为你的上面的那个XML文件，然后再将属性Active设为True。2.在窗体中放一个Button，一个Memo，在Button的onClick事件中写：
procedure TForm1.Button1Click(Sender: TObject);
var Node: IXMLNode;
    i: Integer;
begin
  Node:= XMLDocument1.DocumentElement.ChildNodes[0];
  for i:= 0 to Node.ChildNodes.Count - 1 do
    Memo1.Lines.Add(Node.ChildNodes[i].NodeValue);
end;再试试