标签：quicklib end Create TPersons json var TPerson procedure

quicklib json 

支持FPC和DELPHI。

unit Unit2;
/// <author>cxg 2022-6-12</author>
interface

uses
  quick.Json.Serializer,
  System.Generics.Collections,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TPerson = class
  private
    FName: string;
    FAge: integer;
  published
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

  TPersonList = TObjectList<TPerson>;

  TPersons = class
  private
    FPersons: TPersonList;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property Persons: TPersonList read FPersons write FPersons;
  end;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
//obj2json
begin
  var a: TPerson := TPerson.Create;
  a.Name := '张三';
  a.Age := 8;
  var b: TPerson := TPerson.Create;
  b.Name := '李四';
  b.Age := 88;
  var p: TPersons := TPersons.Create;
  p.Persons.Add(a);
  p.Persons.Add(b);
  var serial: TJsonSerializer := TJsonSerializer.Create(slPublishedProperty);
  Memo1.Lines.Add(serial.ObjectToJson(p)); //{"Persons":[{"Name":"\u5F20\u4E09","Age":8},{"Name":"\u674E\u56DB","Age":88}]}
  p.Free;
  serial.Free;
end;

{ TPersons }

constructor TPersons.Create;
begin
  FPersons := TPersonList.Create(True);
end;

destructor TPersons.Destroy;
begin
  FPersons.Free;
  inherited;
end;

procedure TForm2.Button2Click(Sender: TObject);
//json2obj
begin
  var p: TPersons := TPersons.Create;
  var serial: TJsonSerializer := TJsonSerializer.Create(slPublishedProperty);
  serial.JsonToObject(p, Memo1.Text);
  for var a: TPerson in p.Persons do
    Memo1.Lines.Add(a.Name);     //张三 李四
  serial.Free;
  p.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
end;

end.

标签：quicklib,end,Create,TPersons,json,var,TPerson,procedure
来源： https://www.cnblogs.com/hnxxcxg/p/16368471.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。