Hi, Wagner
After I change the code after you sugeste, compile perfectly. Now i have another issue, the serialize is broken:
TSummary = class
private
FSMounth: String;
FSCount: Integer;
public
constructor Create( aSMounth, aSCount: Variant);
destructor Destroy(); override;
property SMounth: String read FSDate write FSDate;
property SCount: Integer read FSCount write FSCount;
end;
...
fSummaryList := TObjectList.Create;
for i := 0 to 12 do
begin
aSCount := SQLCount(i); //select count(C1) from Invoice where ...
fSummaryList.Add(TSummary.Create( i, aSCount));
end;
Result := FSerializer.ToJson(fSummaryList);
...
BEFORE UPDATE
[{"$type":"DB.Schema.View.TSummary","$id":1,"FSMounth":1,"FSCount":24},
{"$type":"DB.Schema.View.TSummary","$id":1,"FSMounth":2,"FSCount":11},
...
]
AFTER UPDATE
[{"$type":"DB.Schema.View.TSummary","$id":1},
{"$type":"DB.Schema.View.TSummary","$id":1}
...
]
Delphi 10.3 Enterprise, DataSnap Rest/JSON, Aurelius
Thanks