paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 21:07:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Search for correct element type when checking array types

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-25 21:57:32 +01:00
parent 0ca0990e8b
commit 8cedb10c3a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-jsonschema/src/fpjson.schema.pascaltypes.pp
View File

@ -876,7 +876,11 @@ begin
lElTypeData:=GetSchemaTypeData(Nil,lSchema.Items[0]);
// Data.FindSchemaTypeData('Array of string')
lPascalName:=ArrayTypePrefix+lElTypeData.PascalName+ArrayTypeSuffix;
lName:='['+lElTypeData.SchemaName+']';
lName:='['+lElTypeData.SchemaName;
if lSchema.Items[0].Validations.HasKeywordData(jskformat) then
lName:=lName+'--'+lSchema.Items[0].Validations.Format;
lName:=LName+']';
Result:=FindSchemaTypeData(lName);
if Result<>Nil then
lName:='';