Einzelnen Beitrag anzeigen

TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.960 Beiträge
 
Delphi 12 Athens
 
#1

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

  Alt 14. Mai 2022, 22:01
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...

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
  Mit Zitat antworten Zitat