XMLDocument1.Active:=false;      
XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'*.xml');
XMLDocument1.Active:=true;
Root:=XMLDocument1.DocumentElement;
Node:=Root.ChildNodes.First;
while Node<>nil do
begin
  Memo1.Lines.Add(Node.AttributeNodes.Nodes['name'].Text);
  Node:=Node.NextSibling;
end;
XMLDocument1.Active:=false;
posted on 2008-03-04 09:38  BROTHER  阅读(324)  评论(0)    收藏  举报