diff --git a/packages/fcl-jsonschema/src/fpjson.schema.pascaltypes.pp b/packages/fcl-jsonschema/src/fpjson.schema.pascaltypes.pp index 8ee0c6ee3e..d8b8c49046 100644 --- a/packages/fcl-jsonschema/src/fpjson.schema.pascaltypes.pp +++ b/packages/fcl-jsonschema/src/fpjson.schema.pascaltypes.pp @@ -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:='';