Browse Source

* Fix bug ID #37483, correct closesection, patch by C. Western

git-svn-id: trunk@47410 -
(cherry picked from commit 88db3fb50218b9edcfbc8751cef52a1d7c6abcda)
michael 4 years ago
parent
commit
1917617d22
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-registry/src/regini.inc

+ 1 - 0
packages/fcl-registry/src/regini.inc

@@ -318,5 +318,6 @@ end;
 procedure TRegIniFile.CloseSection;
 begin
   CloseKey(CurrentKey);
+  fCurrentKey:=0;
 end;