九、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)哦,谢谢。

原文地址:https://www.cnblogs.com/tianpan2019/p/13902517.html