代码如下:
procedure TForm3.FormCreate(Sender: TObject);
var
path,name:string;
i:integer;
list:IXMLNodeList;
node:IXMLNode;
begin
path:=ExtractFilePath(Application.ExeName)+'conf4.xml';
FXMLDoc:=TXMLDocument.Create(nil);
FXMLDoc.LoadfromFile(path);
FXMLDoc.Active:=true;
node:=FXMLDoc.DocumentElement;
list:=node.ChildNodes;
for i:=0 to list.Count-1 do
begin
if node.ChildNodes[i].Attributes['name']='lj' then
begin
name:=node.ChildNodes[i].ChildNodes['server'].Text;
end;
end;
end;
这段代码在FormCreate中运行会报以下错误[The system cannot locate the object specified]
如果放在函数中运行就没问题.. 新手..期待解决..
看看是那句报错
代码看起来没有什么问题，你放在Formshow事件看看
FXMLDoc.LoadfromFile(path);//错的是这句..
jf
jf
FXMLDoc:=TXMLDocument.Create(nil);
改为
FXMLDoc:=TXMLDocument.Create(Self);
试一下
你试着重启一下计算机
Delphi(Pascal) code:
function SaveToNewXMLDocument: IXMLDocument;
var
xml:
<?xml version="1.0" encoding="gb2312" ?>
<sites>
<site>
<name>.Net开发者园地</name>
<url>http://dotnet.aspx.cc</url>
<img&g ......
