瀏覽代碼

* Fixed equivalent of bug #8529

git-svn-id: trunk@6983 -
michael 19 年之前
父節點
當前提交
8b9b6130d9
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-xml/src/xmlconf.pp

+ 1 - 1
packages/fcl-xml/src/xmlconf.pp

@@ -270,7 +270,7 @@ procedure TXMLConfig.Loaded;
 begin
   inherited Loaded;
   if Length(Filename) > 0 then
-    SetFilename(Filename);              // Load the XML config file
+    DoSetFilename(Filename,True);              // Load the XML config file
 end;
 
 // TODO: copied from dom.pp, make public there and delete here