Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

added more flexibility to ObjectDict

Browse Source
This commit is contained in:
Daniele Teti 2020-11-10 17:15:24 +01:00
parent 6fa868b33f
commit 4caf183398
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
samples/data/ORDERSMANAGER_FB30.FDB
View File

Binary file not shown.

2
sources/MVCFramework.REPLCommandsHandlerU.pas
View File

@ -26,7 +26,7 @@ uses
procedure REPLEmit(const Value: string);
begin
write('#> ');
Write('#> ');
WriteLn(Value);
end;

12
sources/MVCFramework.Serializer.JsonDataObjects.CustomTypes.pas
View File

@ -504,6 +504,18 @@ begin
Continue;
end;
if lObj.Data is TJsonObject then
begin
lOutObject.O[lName] := TJsonObject(TJsonObject(lObj.Data).Clone);
Continue;
end;
if lObj.Data is TJsonArray then
begin
lOutObject.A[lName] := TJsonArray(TJsonArray(lObj.Data).Clone);
Continue;
end;
if TDuckTypedList.CanBeWrappedAsList(lObj.Data, lList) then
begin
fCurrentSerializer.ListToJsonArray(lList, lOutObject.A[lName], TMVCSerializationType.stDefault, [],