json - JSONMarshalled not working in Delphi -
i have following simple class using delphi xe7
{$m+} {$rtti explicit fields([vcprivate])} tentityforcreation = class private [jsonmarshalled(false)] fcreator: integer; fdescription: string; public property creator: integer read fcreator write fcreator; property description: string read fdescription write fdescription; function tojsonstring: string; class function fromjsonstring(ajsonstring: string): tentityforcreation; end; the method tojsonstring uses built in json serializing
function tentityforcreation.tojsonstring: string; begin result := tjson.objecttojsonstring(self); end; for reason, creator element being serialized in json string. have turned "emit run time type information" true in project options.
stepping through json marshalling code, see not recognizing jsonmarshalled linked fcreator. figure missing compiler directive somewhere, cannot figure out.
Comments
Post a Comment