* correctly handle IsEmpty if Nil had been passed to Make

git-svn-id: trunk@36984 -

packages/rtl-objpas/src/inc/rtti.pp

@@ -703,7 +703,9 @@ end;
 
 function TValue.GetIsEmpty: boolean;
 begin
-  result := (FData.FTypeInfo=nil);
+  result := (FData.FTypeInfo=nil) or
+            ((Kind in [tkSString, tkObject, tkRecord, tkArray]) and not Assigned(FData.FValueData)) or
+            ((Kind in [tkClass, tkClassRef, tkInterfaceRaw]) and not Assigned(FData.FAsPointer));
 end;
 
 function TValue.IsArray: boolean;