Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
1.944 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: TJson.JsonToObject funktioniert unter Delphi 10.3 nicht mehr wie unter 10.2

  Alt 7. Dez 2018, 07:59
Ich benutze dafür TJSONMarshal, das funktioniert vor und nach Rio:

Delphi-Quellcode:
function TJson_Marshal_Base<T>.DoMarshal(const AMar : TJSONMarshal) : String;
var
  LValue: TJSONValue;

begin
    LValue := AMar.Marshal( Self );
    try
        Result := LValue.ToString;
    finally
        LValue.Free; // New: LValue temp. obj. must be freed
    end;

end;


function TJson_Marshal_Base<T>.Internal_ToString : String;
var
  LMar : TJSONMarshal;

begin
  LMar := TJSONMarshal.Create(TJSONConverter.Create, True);

  try
      Result := DoMarshal( LMar ); // To Avoid uncaught exceptions

  finally
      LMar.Free;
  end;

end;
Rollo
  Mit Zitat antworten Zitat