Browse Source

rtl: fixed TValue.Empty setting FData, issue 38776

mattias 4 years ago
parent
commit
8ee8c55c49
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/rtl/rtti.pas

+ 1 - 0
packages/rtl/rtti.pas

@@ -822,6 +822,7 @@ end;
 
 class function TValue.Empty: TValue;
 begin
+  Result.FData := nil;
   Result.FTypeInfo := nil;
 end;