Question

将Json字符串转换为我自己的对象时遇到一些问题。我举个例子：

我的课：

SET sql_mode = 'NO_ZERO_DATE';

我使用该方法：

  TClasse = class
  private
    Fid: integer;
    Fnome: string;
    procedure Setid(const Value: integer);
    procedure SetNome(const Value: string);
  published
    property id : integer read Fid write Setid;
    property nome : string read Fnome write SetNome;
  end;

implementation

procedure TClasse.SetNome(const Value: string);
begin
  Fnome := Value;
  Fnome := 'testing: '+Fnome;
end;

这意味着当执行方法“ JsonToObject”时，他将实例化我的类并通过设置器将值设置为then。属性“ nome”应具有值“ testing：abc”，但它仅包含json中的“ abc”部分。调试也不会通过设置程序。

我做错什么了吗？

Answer 1

您可以创建一个新类，例如TJSON_Respond帮助序列化

TJSON_Respond= class
  public
    [JSONName('id')] id: Integer;
    [JSONName('nome')] nome: String;
  end;

cl := TJson.JSONToObject<TJSON_Respond>('{ "id" : 12, "nome" : "abc" }');

TJSON.JsonToObject不通过setter

1 个答案: