delphi JSON序列化（五） - ToB企服应用市场:ToB评测及商务社交产业平台

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Rest.JSON.Types, Rest.JsonReflect;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TValueObject = class
private
FValue: string;
FCreateTime: TDateTime;
public
constructor Create;
property Value: string read FValue write FValue;
property CreateTime: TDateTime read FCreateTime write FCreateTime;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
REST.Json, System.Generics.Collections;
procedure TForm1.FormCreate(Sender: TObject);
begin
var ce := TConverterEvent.Create(TValueObject, 'FValue'); // 使用此构造函数
ce.StringConverter := function(Data: TObject; Field: string): string
begin
Result := 'haha';
end;
TJSONConverters.AddConverter(ce);
Memo1.Text := TJson.ObjectToJsonString(TValueObject.Create);
end;
{ TValueObject }
constructor TValueObject.Create;
begin
inherited Create;
FValue := 'test value';
FCreateTime := Now;
end;
end.

复制代码