<?xml version="1.0" encoding="GB2312"?>
<Version>
<ProductCode>T1.SMBLSJM</ProductCode>
<ProductName></ProductName>
<PackageName></PackageName>
<Version>11.0.0.0</Version>
<DePackageVersion></DePackageVersion>
</Version>
请问如何读取到<Version>11.0.0.0</Version>
这个值,用delphi自带的TXMLDocument
<Version>
<ProductCode>T1.SMBLSJM</ProductCode>
<ProductName></ProductName>
<PackageName></PackageName>
<Version>11.0.0.0</Version>
<DePackageVersion></DePackageVersion>
</Version>
请问如何读取到<Version>11.0.0.0</Version>
这个值,用delphi自带的TXMLDocument
解决方案 »
- 树内拖动,树与树之间的拖动的问题,高手低手,请昂首挺胸地进来吧,在线等之,我们共同交流...
- 为什么Delphi版置顶的是Delphi7下载,现在不都到Delphi2007了么?Delphi7有这么经典?
- 2
- 简单的SQL语句,关于用like找匹配记录
- 怎么把ACCESS中的函数包到单元中?(着急啊!等着你给俺解答)
- 大家来看看.我的DLL函数调用不到,为什么呀?
- 如何把数据转为EXCEL格式的文件
- 多了个裤衩,散分!!!
- ListBox中显示了数据库中某一字段的内容,删除ListBox中的项目的同时怎样删除数据库中的同一记录
- 一个简单的问题,快来啊,在线等待~
- cxgrid 重画band头
- 为什么panel放在groupbox上,groupbox上的componentCount却是0呢
procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
XMLDocument1.LoadFromFile('c:\aa.xml');
for i:=0 to XMLDocument1.DocumentElement.ChildNodes.Count-1 do
begin
if XMLDocument1.DocumentElement.ChildNodes[i].NodeName='Version' then
ShowMessage(XMLDocument1.DocumentElement.ChildNodes[i].NodeValue);
end;
end;
var
XMLDocument1: TXMLDocument;
i: Integer;
begin
XMLDocument1 := TXMLDocument.Create(nil);
try
XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName)+'Ver.xml');
for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count -1 do
begin end;
finally
FreeAndNil(XMLDocument1);
end;
end;运行到这for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count -1 do
就出错郁闷