浏览代码

Changed the default value for Char, to be a #0 char and not an empty string.

Henrique Gottardi Werlang 1 年之前
父节点
当前提交
776216d032
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/pastojs/src/fppas2js.pp

+ 2 - 0
packages/pastojs/src/fppas2js.pp

@@ -25021,6 +25021,8 @@ begin
           Lit.Value.AsNumber:=0
           Lit.Value.AsNumber:=0
         else if bt in btAllJSFloats then
         else if bt in btAllJSFloats then
           Lit.Value.CustomValue:='0.0'
           Lit.Value.CustomValue:='0.0'
+        else if bt in btAllJSChars then
+          Lit.Value.AsString := #0
         else if bt in btAllJSStringAndChars then
         else if bt in btAllJSStringAndChars then
           Lit.Value.AsString:=''
           Lit.Value.AsString:=''
         else if bt in btAllJSBooleans then
         else if bt in btAllJSBooleans then