Cleaning some hints

Author: danieleteti

sources/MVCFramework.Serializer.JsonDataObjects.pas

@@ -2313,7 +2313,6 @@ procedure TMVCJsonDataObjectsSerializer.JSONObjectToRecord(
   const JSONObject: TJsonObject; RTTIType: TRttiRecordType; out Buffer: PByte);
 var
   lTypeSize: Integer;
-  lTypeInfo: PTypeInfo;
   AIgnoredAttributes: TMVCIgnoredList;
   lKeyName: string;
   lAttributeValue: TValue;
@@ -2325,11 +2324,10 @@ procedure TMVCJsonDataObjectsSerializer.JSONObjectToRecord(
     raise EMVCDeserializationException.Create('Insufficient RTTI to deserialize record');
   end;
   lTypeSize := RTTIType.TypeSize;
-  lTypeInfo := RTTIType.Handle;
   GetMem(Buffer, lTypeSize);
   FillChar(Buffer^, lTypeSize, 0);
 {$IF Defined(RIOORBETTER)}
-  InvokeRecordInitializer(Buffer, lTypeInfo);
+  InvokeRecordInitializer(Buffer, RTTIType.Handle);
 {$ENDIF}
   lField := nil;
   AIgnoredAttributes := [];
@@ -2380,19 +2378,17 @@ procedure TMVCJsonDataObjectsSerializer.JSONObjectToRecordStatic(
   const JSONObject: TJsonObject; RTTIType: TRttiRecordType; var Buffer: PByte);
 var
   lTypeSize: Integer;
-  lTypeInfo: PTypeInfo;
   AIgnoredAttributes: TMVCIgnoredList;
   lKeyName: string;
   lAttributeValue: TValue;
   lErrMsg: string;
   lField: TRTTIField;
 begin
   lTypeSize := RTTIType.TypeSize;
-  lTypeInfo := RTTIType.Handle;
   GetMem(Buffer, lTypeSize);
   FillChar(Buffer^, lTypeSize, 0);
 {$IF Defined(RIOORBETTER)}
-  InvokeRecordInitializer(Buffer, lTypeInfo);
+  InvokeRecordInitializer(Buffer, RTTIType.Handle);
 {$ENDIF}
   lField := nil;
   AIgnoredAttributes := [];