소스 검색

* free doc before calling a readxmlfile procedure routine with OUT parameter. Fixes #40126

marcoonthegit 2 년 전
부모
커밋
8c888d9744
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      packages/fcl-xml/src/xmlconf.pp

+ 2 - 0
packages/fcl-xml/src/xmlconf.pp

@@ -167,6 +167,7 @@ begin
   F:=TFileStream.Create(AFileName,fmOpenread or fmShareDenyWrite);
   try
     FFileName := '';
+    Doc.Free;
     ReadXMLFile(Doc, AFilename);
     FFileName:=AFileName;
   finally
@@ -176,6 +177,7 @@ end;
 
 procedure TXMLConfig.LoadFromStream(S: TStream);
 begin
+  Doc.Free;
   ReadXMLFile(Doc,S);
   FModified := False;
   if (Doc.DocumentElement.NodeName<>FRootName) then