quicklib json

quicklib json 

支持FPC和DELPHI。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

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.