JSONSerializationWithSynopse/uJSONSerializationTestObjects.pas at master · ByteJuggler/JSONSerializationWithSynopse · GitHub

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
103
104
105
106
107
108
109
110
111
112
113
unit uJSONSerializationTestObjects;

interface

uses
  Soap.InvokeRegistry, System.Classes;

{$M+}
type
  TMyRemotableTestObj = class(TRemotable)
  private
    FBirthDate: TDateTime;
    FName: String;
    FChildren: Integer;
    procedure SetBirthDate(const Value: TDateTime);
    procedure SetChildren(const Value: Integer);
    procedure SetName(const Value: String);
  public
  published
    property Name : String read FName write SetName;
    property BirthDate : TDateTime read FBirthDate write SetBirthDate;
    property Children : Integer read FChildren write SetChildren;
  end;

type
  TMyPlainTestObj = class
  private
    FBirthDate: TDateTime;
    FName: String;
    FChildren: Integer;
    procedure SetBirthDate(const Value: TDateTime);
    procedure SetChildren(const Value: Integer);
    procedure SetName(const Value: String);
  published
    property Name : String read FName write SetName;
    property BirthDate : TDateTime read FBirthDate write SetBirthDate;
    property Children : Integer read FChildren write SetChildren;
  end;

type
  TMyPersistentTestObj = class(TPersistent)
  private
    FBirthDate: TDateTime;
    FName: String;
    FChildren: Integer;
    procedure SetBirthDate(const Value: TDateTime);
    procedure SetChildren(const Value: Integer);
    procedure SetName(const Value: String);
  published
    property Name : String read FName write SetName;
    property BirthDate : TDateTime read FBirthDate write SetBirthDate;
    property Children : Integer read FChildren write SetChildren;
  end;
{$M-}

implementation


{ TMyPersistentTestObj }

procedure TMyPersistentTestObj.SetBirthDate(const Value: TDateTime);
begin
  FBirthDate := Value;
end;

procedure TMyPersistentTestObj.SetChildren(const Value: Integer);
begin
  FChildren := Value;
end;

procedure TMyPersistentTestObj.SetName(const Value: String);
begin
  FName := Value;
end;

{ TMyPlainTestObj }

procedure TMyPlainTestObj.SetBirthDate(const Value: TDateTime);
begin
  FBirthDate := Value;
end;

procedure TMyPlainTestObj.SetChildren(const Value: Integer);
begin
  FChildren := Value;
end;

procedure TMyPlainTestObj.SetName(const Value: String);
begin
  FName := Value;
end;

{ TMyRemotableTestObj }

procedure TMyRemotableTestObj.SetBirthDate(const Value: TDateTime);
begin
  FBirthDate := Value;
end;

procedure TMyRemotableTestObj.SetChildren(const Value: Integer);
begin
  FChildren := Value;
end;

procedure TMyRemotableTestObj.SetName(const Value: String);
begin
  FName := Value;
end;

end.