Browse Source

* Fixed bug ID #33743 with provided patch. (erroneous exception in getbinarydata)

git-svn-id: trunk@39667 -
michael 7 years ago
parent
commit
3e3c8fdbc1
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-registry/src/registry.pp

+ 1 - 1
packages/fcl-registry/src/registry.pp

@@ -331,7 +331,7 @@ Var
 
 
 begin
 begin
   Result := GetData(Name, @Buffer, BufSize, RegDataType);
   Result := GetData(Name, @Buffer, BufSize, RegDataType);
-  If (RegDataType<>rdBinary) Then
+  If not (RegDataType in [rdBinary, rdUnknown]) Then
     Raise ERegistryException.CreateFmt(SInvalidRegType, [Name]);
     Raise ERegistryException.CreateFmt(SInvalidRegType, [Name]);
 end;
 end;