标签:转换 persons delphi TJsonSerializer json var end serial Create
delphi类(记录)同json互相转换
delphi Tokyo 10.2新增TJsonSerializer类,效率更高更快。
/// <author>cxg 2021-4-4</author> ///Tokyo 10.2新增TJsonSerializer类,效率更高更快。 unit Unit2; interface uses system.JSON.Serializers, System.Generics.Collections, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TUser = record name: string; age: Integer; end; TPerson = class private FName: string; FAge: Integer; public constructor Create(const Name: String; Age: Integer); property Name: string read FName write FName; property Age: Integer read FAge write FAge; end; TForm2 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } persons: TObjectList<TPerson>; users: TArray<TUser>; public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} { TPerson } constructor TPerson.Create(const Name: String; Age: Integer); begin FName := Name; FAge := Age; end; procedure TForm2.Button1Click(Sender: TObject); //class2json begin persons := TObjectList<TPerson>.Create; persons.Add(TPerson.Create('张三', 40)); persons.Add(TPerson.Create('李四', 38)); var serial: TJsonSerializer := TJsonSerializer.Create; Memo1.Text := serial.Serialize<TObjectList<TPerson>>(persons); //{"FOwnsObjects":true,"FListHelper":[{"FName":"张三","FAge":40},{"FName":"李四","FAge":38}],"FComparer":{}} serial.Free; persons.Free; end; procedure TForm2.Button2Click(Sender: TObject); //json2class begin var serial: TJsonSerializer := TJsonSerializer.Create; persons := serial.Deserialize<TObjectList<TPerson>>(Memo1.Text); for var person: TPerson in persons do Memo1.Lines.Add(person.Name); //张三 李四 serial.Free; persons.Free; end; procedure TForm2.Button3Click(Sender: TObject); //record2json begin SetLength(users, 2); var user: TUser; user.name := '王五'; user.age := 1; users[0] := user; var user2: TUser; user2.name := '赵六'; user2.age := 2; users[1] := user2; var serial: TJsonSerializer := TJsonSerializer.Create; Memo1.Text := serial.Serialize<TArray<TUser>>(users); //[{"name":"王五","age":1},{"name":"赵六","age":2}] serial.Free; end; procedure TForm2.Button4Click(Sender: TObject); //json2record begin var serial: TJsonSerializer := TJsonSerializer.Create; users := serial.Deserialize<TArray<TUser>>(Memo1.Text); for var user: TUser in users do memo1.Lines.Add(user.name); serial.Free; end; end.
标签:转换,persons,delphi,TJsonSerializer,json,var,end,serial,Create 来源: https://www.cnblogs.com/hnxxcxg/p/14616324.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。