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

Improved Sqids in not-nullable types

Browse Source
This commit is contained in:
Daniele Teti 2024-05-14 23:44:08 +02:00
parent 4b0d872cd5
commit 1a10545794
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3013,12 +3013,20 @@ begin
lValueTypeInfo, AValue)
end;
end
else if (lValueTypeInfo.Kind = tkInteger) and (TryStrToInt(AStringValue, lOutInteger)) then
else if lValueTypeInfo.Kind = tkInteger then
begin
if TMVCSerializerHelper.AttributeExists<MVCSerializeAsSqidsAttribute>(AAttributes) then
lOutInteger := TMVCSqids.SqidToInt(AStringValue)
else
lOutInteger := StrToInt(AStringValue);
AValue := lOutInteger;
end
else if (lValueTypeInfo.Kind = tkInt64) and (TryStrToInt64(AStringValue, lOutInteger64)) then
else if lValueTypeInfo.Kind = tkInt64 then
begin
if TMVCSerializerHelper.AttributeExists<MVCSerializeAsSqidsAttribute>(AAttributes) then
lOutInteger64 := TMVCSqids.SqidToInt(AStringValue)
else
lOutInteger64 := StrToInt64(AStringValue);
AValue := lOutInteger64;
end
else if lValueTypeInfo.Kind = tkSet then