delphi JSON序列化（五）

关于TJSONConverters的使用

1. unit Unit1;
3. interface
5. uses
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Rest.JSON.Types, Rest.JsonReflect;
9. type
10.   TForm1 = class(TForm)
11.     Memo1: TMemo;
12.     procedure FormCreate(Sender: TObject);
13.   private
14.     { Private declarations }
15.   public
16.     { Public declarations }
17.   end;
19.   TValueObject = class
20.   private
21.     FValue: string;
22.     FCreateTime: TDateTime;
23.   public
24.     constructor Create;
25.     property Value: string read FValue write FValue;
26.     property CreateTime: TDateTime read FCreateTime write FCreateTime;
27.   end;
29. var
30.   Form1: TForm1;
32. implementation
34. {$R *.dfm}
36. uses
37.   REST.Json, System.Generics.Collections;
40. procedure TForm1.FormCreate(Sender: TObject);
41. begin
42.   var ce := TConverterEvent.Create(TValueObject, 'FValue'); // 使用此构造函数
43.   ce.StringConverter := function(Data: TObject; Field: string): string
44.     begin
45.       Result := 'haha';
46.     end;
48.   TJSONConverters.AddConverter(ce);
50.   Memo1.Text := TJson.ObjectToJsonString(TValueObject.Create);
51. end;
53. { TValueObject }
55. constructor TValueObject.Create;
56. begin
57.   inherited Create;
58.   FValue := 'test value';
59.   FCreateTime := Now;
60. end;
62. end.

复制代码

结果： {"value":"haha","createTime":"2024-01-10T17:15:33.588Z"}
 

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！