九、Delphi10.3通过Json.Serializers实现反序列号，将JSON转换成数组

01、JSON代码如下：

{"FName":"张三","FScore":0,"FAge":"2020-10-30T15:39:42.272+08:00"}

 

02、Delphi代码如下：

uses
  REST.Json,
  System.Json,
  System.Types,
  System.Json.Types,
  System.Json.Writers,
  System.Json.Builders,
  System.Json.Serializers(*必须引用这个单元*);

procedure TForm_Json.Button2Click(Sender: TObject);
var
  m_People: TPeople;
begin
  m_People := TJsonSerializer.Create.Deserialize<TPeople>(Trim(Memo1.Text));
  Memo1.Lines.Add(m_People.Name);
end;

 

03、效果如下：

 

 

不忘初心，如果您认为这篇文章有价值，认同作者的付出，可以微信二维码打赏任意金额给作者（微信号：382477247）哦，谢谢。