paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 12:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add format placeholder for the type's name

Browse Source 
git-svn-id: trunk@41931 -
This commit is contained in:
svenbarth 2019-04-25 09:27:07 +00:00
parent 8a23e813ca
commit 75baf343d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/restbase.pp
View File

@ -717,7 +717,7 @@ begin
TStringArray(AP)[I]:=AValue.Strings[i]; TStringArray(AP)[I]:=AValue.Strings[i];
end; end;
else 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; end;
end; end;
@ -1041,7 +1041,7 @@ begin
For I:=0 to Length(TStringArray(AP))-1 do For I:=0 to Length(TStringArray(AP))-1 do
A.Add(TJSONString.Create(TStringArray(AP)[I])); A.Add(TJSONString.Create(TStringArray(AP)[I]));
else 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; end;