Преглед изворни кода

* Merging revisions r42343 from trunk:
------------------------------------------------------------------------
r42343 | michael | 2019-07-08 12:24:00 +0200 (Mon, 08 Jul 2019) | 1 line

* Patch from Maciej Izak to allow loading multiple times
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42435 -

michael пре 6 година
родитељ
комит
fa5b9b4f5c
1 измењених фајлова са 4 додато и 1 уклоњено
  1. 4 1
      packages/fcl-base/src/fileinfo.pp

+ 4 - 1
packages/fcl-base/src/fileinfo.pp

@@ -172,7 +172,10 @@ procedure TVersionInfo.FreeResources;
 
 begin
   if Assigned(FResources) then
-    FreeAndNil(FResources)
+    begin
+      FreeAndNil(FResources);
+      FVersionInfo := nil;
+    end
   else
     FreeAndNil(FVersionInfo);
 end;