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

Exception handling when receiving value that does not exist in the mapped values.

Browse Source 
Search for mapped values case insensitive
This commit is contained in:
João Antônio Duarte 2020-03-13 11:58:04 -03:00
parent 782bf2c4e0
commit cd162c5977
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sources/MVCFramework.Serializer.Commons.pas
View File

@ -314,7 +314,8 @@ uses
MVCFramework.Serializer.JsonDataObjects,
MVCFramework.Serializer.Intf,
Data.FmtBcd,
MVCFramework.Nullables;
MVCFramework.Nullables,
System.Generics.Defaults;
function NewObjectHolder(const AObject: TObject; const AMetaFiller: TProc<TMVCStringDictionary> = nil;
const AOwns: boolean = false): TMVCObjectResponse;
@ -732,7 +733,12 @@ end;
constructor MVCEnumSerializationAttribute.Create(const ASerializationType: TMVCEnumSerializationType;
const AMappedValues: string);
begin
FMappedValues := TList<string>.Create;
FMappedValues := TList<string>.Create(TDelegatedComparer<string>.Create(
function(const Left, Right: string): Integer
begin
Result := CompareText(Left, Right);
end));
FSerializationType := ASerializationType;
if (FSerializationType = estEnumMappedValues) then

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

@ -936,6 +936,9 @@ begin
else
begin
LMappedValueIndex := LEnumMappedValues.IndexOf(AJsonObject[AName].Value);
if LMappedValueIndex < 0 then
raise EMVCSerializationException.CreateFmt('Cannot deserialize property %s from mapped values', [AName]);
TValue.Make(GetEnumValue(AValue.TypeInfo, GetEnumName(AValue.TypeInfo, LMappedValueIndex)),
AValue.TypeInfo, AValue)
end;