mORMot Open Source

Goulu

Member

From: Switzerland

Registered: 2018-09-18

Posts: 6

Website

How to handle TTextWriterWriteObjectOptions in a custom serializer ?

I have custom class serializers that calls aJSONSerializer.AddJSONEscape(['pairof',Fields]),
but I notice the Fields aren't written using the options I passed to the calling ObjectToJSON(myObject, myTextWriterWriteObjectOptions)
because in

procedure TTextWriter.AddJSONEscape(const V: TVarRec);
begin
  with V do
  case VType of
    (* other cases *)
    vtObject:   WriteObject(VObject); // has no Options
  end;
end;

Did I miss something ?

Last edited by Goulu (2019-03-26 13:02:06)

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,242

Website

Re: How to handle TTextWriterWriteObjectOptions in a custom serializer ?

Call instead

procedure TTextWriter.Add(const V: TVarRec; Escape: TTextWriterKind;
  WriteObjectOptions: TTextWriterWriteObjectOptions)

Goulu

Member

From: Switzerland

Registered: 2018-09-18

Posts: 6

Website

Re: How to handle TTextWriterWriteObjectOptions in a custom serializer ?

Perfect ! Thanks !