Fórum serializacao de objeto #474026

{ TJSONBaseObject<T> }
 
class function TJSONBaseObject<T>.BaseObjectToJSON(destObject: T): TJSONValue;
  var
    FJSON: TJSONMarshal;
begin
   if Assigned(destObject) then
      begin
        FJSON := TJSONMarshal.Create(TJSONConverter.Create);
        try
          Exit(TJSONValue(FJSON.Marshal(destObject)));
        finally
          FJSON.Free;
        end;
     end
  else
    Exit(TJSONNull.Create);
end;
 
class function TJSONBaseObject<T>.JSONToBaseObject(JSON: TJSONValue): T;
  var
    FJSON: TJSONUnMarshal;
begin
   if not (JSON is TJSONNull) then
     begin
       FJSON := TJSONUnMarshal.Create;
       try
         Exit(T(FJSON.Unmarshal(JSON)));
       finally
          FJSON.Free;
       end;
     end
  else
    Exit(nil);
  end;