Question

Delphi XML属性读取

已知XML文件中有如下元素：
<message>
<time>a</time>
<file>b</file>
<start>c</start>
<end>d</end>
<others>e</others>
</message>
且XML就是有许许多多的<message></message>组成 每个组成内成员不变
现在要在表格中读取XML属性中的值

该如何实现

Answer 1

xml:=txmldocument.creat(self);
try
Root:=xml.documentElement;
item := Root.ChildNodes.First; //message节点
while item <> nil do
begin
//*********************循环赋值******************************//
time :=item.ChildNodes.FindNode('time').text;
....................
//************************************************************//
item := Item.NextSibling; //跳到下个message节点
end;
finally
xml.free;
end;

追问

如果我在TButton按钮中相应这个函数
是不是在响应函数中写上
{
xmlread('tager.xml');
{你的回答}
}
然后在TListView的DateChange中添加
{
items.add('message')
}
这样子实现的？

追答

我的回答是读取xml，
items.add（message）这里message应该是一个listitem对象吧，应该放在
item := Item.NextSibling; 前面，循环添加.

Answer 2

var
lst :TLIst ;
xdoc:TNativeXml;
n,nch: TXmlNode ;
val:string;
begin
try
xdoc:=TNativeXml.Create;
lst :=TLIst.create ;
xdoc.LoadFromFile('c:\test.xml');
n:= xdoc.Root;
n.FindNodes('message',lst);
for i:=0 to lst.Count-1 do
begin
nch := TXmlNode(lst.Items[i]) ;
val := nch.ReadString('time');
val := nch.ReadString('file');
val := nch.ReadString('start');
val := nch.ReadString('end');
val := nch.ReadString('others');
// dosomething...
end; // end for
finally
lst.free;
xdoc.Clear;
xdoc.Free;
end;

end ;