Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Cleaning some hints

Browse Source
This commit is contained in:
Daniele Teti 2022-07-26 17:04:39 +02:00
parent 5e1e535268
commit b89b2727a9
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/MVCFramework.Serializer.JsonDataObjects.pas
View File

@ -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 @@ begin
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,7 +2378,6 @@ procedure TMVCJsonDataObjectsSerializer.JSONObjectToRecordStatic(
const JSONObject: TJsonObject; RTTIType: TRttiRecordType; var Buffer: PByte);
var
lTypeSize: Integer;
lTypeInfo: PTypeInfo;
AIgnoredAttributes: TMVCIgnoredList;
lKeyName: string;
lAttributeValue: TValue;
@ -2388,11 +2385,10 @@ var
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 := [];