diff --git a/packages/fcl-web/src/base/restbase.pp b/packages/fcl-web/src/base/restbase.pp index 285209b34f..d3f7701a7c 100644 --- a/packages/fcl-web/src/base/restbase.pp +++ b/packages/fcl-web/src/base/restbase.pp @@ -717,7 +717,7 @@ begin TStringArray(AP)[I]:=AValue.Strings[i]; end; else - Raise ERESTAPI.CreateFmt('%s: unsupported array element type : ',[ClassName,GetEnumName(TypeInfo(TTypeKind),Ord(ET^.Kind))]); + Raise ERESTAPI.CreateFmt('%s: unsupported array element type : %s',[ClassName,GetEnumName(TypeInfo(TTypeKind),Ord(ET^.Kind))]); end; end; end; @@ -1041,7 +1041,7 @@ begin For I:=0 to Length(TStringArray(AP))-1 do A.Add(TJSONString.Create(TStringArray(AP)[I])); else - Raise ERESTAPI.CreateFmt('%s: unsupported array element type : ',[ClassName,GetEnumName(TypeInfo(TTypeKind),Ord(ET^.Kind))]); + Raise ERESTAPI.CreateFmt('%s: unsupported array element type : %s',[ClassName,GetEnumName(TypeInfo(TTypeKind),Ord(ET^.Kind))]); end; end;