Lazarus Reading XML- with TXMLDocument and TDOMNode

这里读取'HistoryPath' ,'TracePath' 元素下的‘value’属性使用的是

1. var
2. xmlCfg: TXMLDocument;
3. ....
4. function ReadXMLCFG: boolean;
5. var
6. .....
7. HistoryPath: string = '';
8. TracePath: string = '';
9. vChild: TDOMNode;
10. .....
11. begin
12. Result := False;
13. if ... then
14. begin
15. .....
16. ReadXMLFile(xmlCfg, vCMSConfigXml);
17. vChild := xmlCfg.DocumentElement.FirstChild;
18. while Assigned(vChild) do
19. begin
20. if vChild.HasAttributes then
21. begin
22. eName := vChild.NodeName;
23. if eName = 'HistoryPath' then
24. begin
25. HistoryPath := vChild.Attributes.GetNamedItem('value').NodeValue;
26. end;
27. if eName = 'TracePath' then
28. begin
29. TracePath := vChild.Attributes.GetNamedItem('value').NodeValue;
30. end;
31. end;
32. vChild := vChild.NextSibling;
33. end;
34. .....
35. end;
36. end;
37. end;