TJSON.Format -> TJSONAncestor.Format umbauen, aber wie?

**TurboMagic**

Hallo,

der Compiler meckert hier immer beim TJSON.Format Aufruf weil der deprecated ist.
Mag ja sein, nur verstehe ich die dort angegebene Alternative TJSONAncestor.Format nicht,
weil die ganz andere Parameter hat. Und die Hilfe ist da auch mal wieder sehr hilfreich...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TTSEStatus.RESTRequestAfterExecute(const Sender: TCustomRESTRequest);

var

  Obj : TJSONValue;

begin

  Obj := TJSONObject.ParseJSONValue(Sender.Response.Content);

  if Assigned(Obj) then

    try

      Log.Send(LevelBlue, cCategory, 'RequestType1: ' + TJSON.Format(Obj));

    finally

      Obj.Free;

    end;

end;

Kann mir jemand sagen, wie ich den TJSON.Format Aufruf ersetzen müsste?

Grüße
TurboMagic

TJSON.Format -> TJSONAncestor.Format umbauen, aber wie?

TJSON.Format -> TJSONAncestor.Format umbauen, aber wie?

Forumregeln