// - to be called if TypeNameToSimpleRTTIType() did fail, i.e. return ptCustom
    // - will return ptCustom for any unknown type
    class function TypeInfoToSimpleRTTIType(Info: pointer; ItemSize: integer): TJSONCustomParserRTTIType;
    /// unserialize some JSON content into its binary internal representation
    function ReadOneLevel(var P: PUTF8Char; var Data: PByte;
      Options: TJSONCustomParserSerializationOptions): boolean; virtual;
    /// serialize a binary internal representation into JSON content

    procedure WriteOneLevel(aWriter: TTextWriter; var P: PByte;
      Options: TJSONCustomParserSerializationOptions); virtual;
    /// the associated type name, e.g. for a record
    property CustomTypeName: RawUTF8 read fCustomTypeName;
    /// the property name
    // - may be void for the Root element
    // - e.g. 'SubProp'
................................................................................
asm // faster version by AB (direct call to finalization procedures)
        { ->    EAX pointer to record to be finalized   }
        {       EDX pointer to type info                }
        { <-    EAX pointer to record to be finalized   }
        movzx ecx,byte ptr [edx].TFieldTable.NameLen
        push ebx
        mov ebx,eax
        push esi
        push edi
        mov edi,[edx+ecx].TFieldTable.ManagedCount
        lea esi,[edx+ecx].TFieldTable.ManagedFields
        test edi,edi
        jz @@end
@@loop: mov edx,[esi].TFieldInfo.TypeInfo
        mov eax,[esi].TFieldInfo.&Offset
................................................................................
begin
  inherited;
  fNestedArray.Free;
end;

procedure TJSONCustomParserCustomSimple.CustomWriter(
  const aWriter: TTextWriter; const aValue);
var i,int: integer;

    V: PByte;
begin
  case fKnownType of
  ktStaticArray: begin
    aWriter.Add('[');
    V := @aValue;
    for i := 1 to PArrayTypeInfo(fTypeData)^.elCount do
      fNestedArray.WriteOneLevel(aWriter,V,[]);


    aWriter.CancelLastComma;
    aWriter.Add(']');
  end;
  (*  max: integer; item: PShortString;
  ktSet: begin // written as an object with set names as fields = true/false
    aWriter.Add('{');
    item := GetEnumBaseTypeList(fTypeData,max);
................................................................................
      inc(PByte(item),ord(item^[0])+1); // next short string
    end;
    aWriter.CancelLastComma;
    aWriter.Add('}');
  end;
  *)
  ktEnumeration, ktSet: begin
    int := 0;
    MoveFast(aValue,int,fDataSize);
    aWriter.AddU(int); // storing the value as binary/integer is safe and fast
    //aWriter.AddShort(GetEnumName(fCustomTypeInfo,byte(aValue))^);
  end;
  ktDynamicArray:
    raise ESynException.CreateUTF8('%.CustomWriter("%"): Unsupported',
        [self,fCustomTypeName]);
  else begin // encoded as JSON strings
    aWriter.Add('"');
................................................................................
  end;
  end;
end;

function TJSONCustomParserCustomSimple.CustomReader(P: PUTF8Char;
  var aValue; out EndOfObject: AnsiChar): PUTF8Char;
var PropValue: PUTF8Char;
    V,i: integer;

    wasString: boolean;
    Val: PByte;
begin
  result := nil; // indicates error
  case fKnownType of
  ktStaticArray: begin
    if P^<>'[' then
................................................................................
      if wasString and (TextToGUID(PropValue,@aValue)<>nil) then
        result := P;
    ktSet,ktEnumeration: begin
      if wasString then
        if fKnownType=ktSet then
          raise ESynException.CreateUTF8('%.CustomReader("%") not implemented yet from string',
            [self,fCustomTypeName]) else
          V := GetEnumNameValue(fCustomTypeInfo,PropValue,StrLen(PropValue)) else
        V := GetInteger(PropValue);
      if V<0 then
        exit;
      MoveFast(V,aValue,fDataSize);
      result := P;
    end;
    ktFixedArray:
      if wasString and (StrLen(PropValue)=fFixedSize*2) and
         SynCommons.HexToBin(PAnsiChar(PropValue),@aValue,fFixedSize) then
        result := P;
    end;
................................................................................
      inc(aWriter.fHumanReadableLevel);
      DynArray := PPointer(Value)^;
      if DynArray<>nil then
        for j := 1 to DynArrayLength(DynArray) do begin
          if soWriteHumanReadable in Options then
            aWriter.AddCRAndIndent;
          if Prop.NestedProperty[0].PropertyName='' then  // array of simple
            WriteOneValue(Prop.NestedProperty[0],DynArray) else begin
            Prop.WriteOneLevel(aWriter,DynArray,Options); // array of record
            aWriter.Add(',');
          end;
          {$ifdef ALIGNCUSTOMREC}
          if PtrUInt(DynArray)and 7<>0 then
            inc(DynArray,8-(PtrUInt(DynArray)and 7));
          {$endif}
        end;
      aWriter.CancelLastComma;
      aWriter.Add(']');
      dec(aWriter.fHumanReadableLevel);
    end;
    ptRecord: begin
      Prop.WriteOneLevel(aWriter,Value,Options);
      aWriter.Add(',');
      exit;
    end;
    ptCustom:
      TJSONCustomParserCustom(Prop).CustomWriter(aWriter,Value^);
    end;
    aWriter.Add(',');
    inc(Value,Prop.fDataSize);
  end;
var i: integer;
    SubProp: TJSONCustomParserRTTI;
begin
  if P=nil then begin
    aWriter.AddShort('null');
................................................................................
    SubProp := NestedProperty[i];
    if soWriteHumanReadable in Options then
      aWriter.AddCRAndIndent;
    aWriter.AddFieldName(SubProp.PropertyName);
    if soWriteHumanReadable in Options then
      aWriter.Add(' ');
    WriteOneValue(SubProp,P);

  end;
  aWriter.CancelLastComma;
  dec(aWriter.fHumanReadableLevel);
  if soWriteHumanReadable in Options then
    aWriter.AddCRAndIndent;
  aWriter.Add('}');
end;

    // - to be called if TypeNameToSimpleRTTIType() did fail, i.e. return ptCustom
    // - will return ptCustom for any unknown type
    class function TypeInfoToSimpleRTTIType(Info: pointer; ItemSize: integer): TJSONCustomParserRTTIType;
    /// unserialize some JSON content into its binary internal representation
    function ReadOneLevel(var P: PUTF8Char; var Data: PByte;
      Options: TJSONCustomParserSerializationOptions): boolean; virtual;
    /// serialize a binary internal representation into JSON content
    // - this method won't append a trailing ',' character
    procedure WriteOneLevel(aWriter: TTextWriter; var P: PByte;
      Options: TJSONCustomParserSerializationOptions); virtual;
    /// the associated type name, e.g. for a record
    property CustomTypeName: RawUTF8 read fCustomTypeName;
    /// the property name
    // - may be void for the Root element
    // - e.g. 'SubProp'
................................................................................
asm // faster version by AB (direct call to finalization procedures)
        { ->    EAX pointer to record to be finalized   }
        {       EDX pointer to type info                }
        { <-    EAX pointer to record to be finalized   }
        movzx ecx,byte ptr [edx].TFieldTable.NameLen
        push ebx
        mov ebx,eax
        push esi         
        push edi
        mov edi,[edx+ecx].TFieldTable.ManagedCount
        lea esi,[edx+ecx].TFieldTable.ManagedFields
        test edi,edi
        jz @@end
@@loop: mov edx,[esi].TFieldInfo.TypeInfo
        mov eax,[esi].TFieldInfo.&Offset
................................................................................
begin
  inherited;
  fNestedArray.Free;
end;

procedure TJSONCustomParserCustomSimple.CustomWriter(
  const aWriter: TTextWriter; const aValue);
var i: integer;
    i64: Int64;
    V: PByte;
begin
  case fKnownType of
  ktStaticArray: begin
    aWriter.Add('[');
    V := @aValue;
    for i := 1 to PArrayTypeInfo(fTypeData)^.elCount do begin
      fNestedArray.WriteOneLevel(aWriter,V,[]);
      aWriter.Add(',');
    end;
    aWriter.CancelLastComma;
    aWriter.Add(']');
  end;
  (*  max: integer; item: PShortString;
  ktSet: begin // written as an object with set names as fields = true/false
    aWriter.Add('{');
    item := GetEnumBaseTypeList(fTypeData,max);
................................................................................
      inc(PByte(item),ord(item^[0])+1); // next short string
    end;
    aWriter.CancelLastComma;
    aWriter.Add('}');
  end;
  *)
  ktEnumeration, ktSet: begin
    i64 := 0;
    MoveFast(aValue,i64,fDataSize);
    aWriter.Add(i64); // storing the value as binary/integer is safe and fast
    //aWriter.AddShort(GetEnumName(fCustomTypeInfo,byte(aValue))^);
  end;
  ktDynamicArray:
    raise ESynException.CreateUTF8('%.CustomWriter("%"): Unsupported',
        [self,fCustomTypeName]);
  else begin // encoded as JSON strings
    aWriter.Add('"');
................................................................................
  end;
  end;
end;

function TJSONCustomParserCustomSimple.CustomReader(P: PUTF8Char;
  var aValue; out EndOfObject: AnsiChar): PUTF8Char;
var PropValue: PUTF8Char;
    i: integer;
    i64: Int64;
    wasString: boolean;
    Val: PByte;
begin
  result := nil; // indicates error
  case fKnownType of
  ktStaticArray: begin
    if P^<>'[' then
................................................................................
      if wasString and (TextToGUID(PropValue,@aValue)<>nil) then
        result := P;
    ktSet,ktEnumeration: begin
      if wasString then
        if fKnownType=ktSet then
          raise ESynException.CreateUTF8('%.CustomReader("%") not implemented yet from string',
            [self,fCustomTypeName]) else
          i64 := GetEnumNameValue(fCustomTypeInfo,PropValue,StrLen(PropValue)) else
        i64 := GetInt64(PropValue);
      if i64<0 then
        exit;
      MoveFast(i64,aValue,fDataSize);
      result := P;
    end;
    ktFixedArray:
      if wasString and (StrLen(PropValue)=fFixedSize*2) and
         SynCommons.HexToBin(PAnsiChar(PropValue),@aValue,fFixedSize) then
        result := P;
    end;
................................................................................
      inc(aWriter.fHumanReadableLevel);
      DynArray := PPointer(Value)^;
      if DynArray<>nil then
        for j := 1 to DynArrayLength(DynArray) do begin
          if soWriteHumanReadable in Options then
            aWriter.AddCRAndIndent;
          if Prop.NestedProperty[0].PropertyName='' then  // array of simple
            WriteOneValue(Prop.NestedProperty[0],DynArray) else
            Prop.WriteOneLevel(aWriter,DynArray,Options); // array of record
          aWriter.Add(',');

          {$ifdef ALIGNCUSTOMREC}
          if PtrUInt(DynArray)and 7<>0 then
            inc(DynArray,8-(PtrUInt(DynArray)and 7));
          {$endif}
        end;
      aWriter.CancelLastComma;
      aWriter.Add(']');
      dec(aWriter.fHumanReadableLevel);
    end;
    ptRecord: begin
      Prop.WriteOneLevel(aWriter,Value,Options);

      exit;
    end;
    ptCustom:
      TJSONCustomParserCustom(Prop).CustomWriter(aWriter,Value^);
    end;

    inc(Value,Prop.fDataSize);
  end;
var i: integer;
    SubProp: TJSONCustomParserRTTI;
begin
  if P=nil then begin
    aWriter.AddShort('null');
................................................................................
    SubProp := NestedProperty[i];
    if soWriteHumanReadable in Options then
      aWriter.AddCRAndIndent;
    aWriter.AddFieldName(SubProp.PropertyName);
    if soWriteHumanReadable in Options then
      aWriter.Add(' ');
    WriteOneValue(SubProp,P);
    aWriter.Add(',');
  end;
  aWriter.CancelLastComma;
  dec(aWriter.fHumanReadableLevel);
  if soWriteHumanReadable in Options then
    aWriter.AddCRAndIndent;
  aWriter.Add('}');
end;

'1.18.1974'

'1.18.1975'