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

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: ' + Obj.Format);
    finally
      Obj.Free;
    end;
end;

Danke, das funktioniert! War halt nicht offensichtlich...