Problem with GetAsJson and RefreshArray

[MatheusLetra]

Ao gerar minha classe, obtenho os erros:

• [dcc32 Error] UPedido.pas(34): E2137 Method 'GetAsJson' not found in base class

• [dcc32 Error] UPedido.pas(60): E2003 Undeclared identifier: 'RefreshArray'

• Classe Gerada:

unit UPedido;

interface

uses Pkg.Json.DTO, System.Generics.Collections, REST.Json.Types;

{$M+}

type TProdutos = class private FDescricao: string; FId: Integer; FQtde: Integer; FUnitario: Double; published property Descricao: string read FDescricao write FDescricao; property Id: Integer read FId write FId; property Qtde: Integer read FQtde write FQtde; property Unitario: Double read FUnitario write FUnitario; end;

TPedido = class(TJsonDTO) private FCliente: string; FId: Integer; [JSONName('produtos'), JSONMarshalled(False)] FProdutosArray: TArray; [GenericListReflect] FProdutos: TObjectList; function GetProdutos: TObjectList; protected function GetAsJson: string; override; published property Cliente: string read FCliente write FCliente; property Id: Integer read FId write FId; property Produtos: TObjectList read GetProdutos; public destructor Destroy; override; end;

implementation

{ TPedido }

destructor TPedido.Destroy; begin GetProdutos.Free; inherited; end;

function TPedido.GetProdutos: TObjectList; begin Result := ObjectList(FProdutos, FProdutosArray); end;

function TPedido.GetAsJson: string; begin RefreshArray(FProdutos, FProdutosArray); Result := inherited; end;

end.

[marlonnardi]

Experimente usar o site https://jsontodelphi.com o mesmo possui vários novos recursos implementados para geração de classes em Delphi.

News and Fixes: https://github.com/marlonnardi/JsonToDelphi#jsontodelphi-online

[JensBorrisholt]

@MatheusLetra can you please provide me with the JSON?