求助，编译报错

CZP98168 2014-08-21 02:13:57

在下载区下载了一个Fundamentals.SQLParser.4.0.01，编译的时候报错：[DCC Error] cUnicodeCodecs.pas(6875): E2072 Number of elements (219) differs from declaration (63697)

出错的代码是：



const

  IBM864Map : Array[#$25..#$FF] of WideChar = (

      #$FFFF, #$0026, #$0027, #$0028, #$0029, #$002A, #$002B, #$002C,

      #$002D, #$002E, #$002F, #$0030, #$0031, #$0032, #$0033, #$0034,

      #$0035, #$0036, #$0037, #$0038, #$0039, #$003A, #$003B, #$003C,

      #$003D, #$003E, #$003F, #$0040, #$0041, #$0042, #$0043, #$0044,

      #$0045, #$0046, #$0047, #$0048, #$0049, #$004A, #$004B, #$004C,

      #$004D, #$004E, #$004F, #$0050, #$0051, #$0052, #$0053, #$0054,

      #$0055, #$0056, #$0057, #$0058, #$0059, #$005A, #$005B, #$005C,

      #$005D, #$005E, #$005F, #$0060, #$0061, #$0062, #$0063, #$0064,

      #$0065, #$0066, #$0067, #$0068, #$0069, #$006A, #$006B, #$006C,

      #$006D, #$006E, #$006F, #$0070, #$0071, #$0072, #$0073, #$0074,

      #$0075, #$0076, #$0077, #$0078, #$0079, #$007A, #$007B, #$007C,

      #$007D, #$007E, #$007F, #$00B0, #$00B7, #$2219, #$221A, #$2592,

      #$2500, #$2502, #$253C, #$2524, #$252C, #$251C, #$2534, #$2510,

      #$250C, #$2514, #$2518, #$03B2, #$221E, #$03C6, #$00B1, #$00BD,

      #$00BC, #$2248, #$00AB, #$00BB, #$FEF7, #$FEF8, #$FFFF, #$FFFF,

      #$FEFB, #$FEFC, #$FFFF, #$00A0, #$00AD, #$FE82, #$00A3, #$00A4,

      #$FE84, #$FFFF, #$FFFF, #$FE8E, #$FE8F, #$FE95, #$FE99, #$060C,

      #$FE9D, #$FEA1, #$FEA5, #$0660, #$0661, #$0662, #$0663, #$0664,

      #$0665, #$0666, #$0667, #$0668, #$0669, #$FED1, #$061B, #$FEB1,

      #$FEB5, #$FEB9, #$061F, #$00A2, #$FFFF, #$FFFF, #$FFFF, #$FFFF,

      #$FECA, #$FFFF, #$FE8D, #$FE91, #$FE93, #$FE97, #$FE9B, #$FE9F,

      #$FEA3, #$FEA7, #$FEA9, #$FEAB, #$FEAD, #$FEAF, #$FEB3, #$FEB7,

      #$FEBB, #$FEBF, #$FEC1, #$FEC5, #$FECB, #$FECF, #$00A6, #$00AC,

      #$00F7, #$00D7, #$FEC9, #$0640, #$FED3, #$FED7, #$FEDB, #$FEDF,

      #$FEE3, #$FEE7, #$FEEB, #$FEED, #$FEEF, #$FEF3, #$FEBD, #$FECC,

      #$FECE, #$FECD, #$FEE1, #$FE7D, #$0651, #$FEE5, #$FEE9, #$FEEC,

      #$FEF0, #$FEF2, #$FED0, #$FED5, #$FEF5, #$FEF6, #$FEDD, #$FED9,

      #$FEF1, #$25A0, #$FFFF);

我数了一下定义的是219个元素啊，不明白为什么为什么会报错，Delphi用的是2010，请大神们指点！

...全文

148 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

aniugee 2014-08-22

打赏
举报

虽然不明白原因，但看错误提示的意思，应该是说 [#$25..#$FF]之间的相差值是63697 没装2010，用2007直接可以编译通过

CZP98168 2014-08-21

打赏
举报

引用 3 楼 gykthh 的回复:

IBM864Map : Array[#$25..#$FF] of WideChar 改为 IBM864Map : Array[$25..$FF] of WideChar

谢谢，我试试看！

Blessed_Chuan 2014-08-21

打赏
举报

IBM864Map : Array[#$25..#$FF] of WideChar 改为 IBM864Map : Array[$25..$FF] of WideChar

Blessed_Chuan 2014-08-21

打赏
举报

在Delphi7 下编译没错应该不是这段代码的问题吧 XE2下修改如下


const
  IBM864Map : Array[$25..$FF] of WideChar = (
      #$FFFF, #$0026, #$0027, #$0028, #$0029, #$002A, #$002B, #$002C,
      #$002D, #$002E, #$002F, #$0030, #$0031, #$0032, #$0033, #$0034,
      #$0035, #$0036, #$0037, #$0038, #$0039, #$003A, #$003B, #$003C,
      #$003D, #$003E, #$003F, #$0040, #$0041, #$0042, #$0043, #$0044,
      #$0045, #$0046, #$0047, #$0048, #$0049, #$004A, #$004B, #$004C,
      #$004D, #$004E, #$004F, #$0050, #$0051, #$0052, #$0053, #$0054,
      #$0055, #$0056, #$0057, #$0058, #$0059, #$005A, #$005B, #$005C,
      #$005D, #$005E, #$005F, #$0060, #$0061, #$0062, #$0063, #$0064,
      #$0065, #$0066, #$0067, #$0068, #$0069, #$006A, #$006B, #$006C,
      #$006D, #$006E, #$006F, #$0070, #$0071, #$0072, #$0073, #$0074,
      #$0075, #$0076, #$0077, #$0078, #$0079, #$007A, #$007B, #$007C,
      #$007D, #$007E, #$007F, #$00B0, #$00B7, #$2219, #$221A, #$2592,
      #$2500, #$2502, #$253C, #$2524, #$252C, #$251C, #$2534, #$2510,
      #$250C, #$2514, #$2518, #$03B2, #$221E, #$03C6, #$00B1, #$00BD,
      #$00BC, #$2248, #$00AB, #$00BB, #$FEF7, #$FEF8, #$FFFF, #$FFFF,
      #$FEFB, #$FEFC, #$FFFF, #$00A0, #$00AD, #$FE82, #$00A3, #$00A4,
      #$FE84, #$FFFF, #$FFFF, #$FE8E, #$FE8F, #$FE95, #$FE99, #$060C,
      #$FE9D, #$FEA1, #$FEA5, #$0660, #$0661, #$0662, #$0663, #$0664,
      #$0665, #$0666, #$0667, #$0668, #$0669, #$FED1, #$061B, #$FEB1,
      #$FEB5, #$FEB9, #$061F, #$00A2, #$FFFF, #$FFFF, #$FFFF, #$FFFF,
      #$FECA, #$FFFF, #$FE8D, #$FE91, #$FE93, #$FE97, #$FE9B, #$FE9F,
      #$FEA3, #$FEA7, #$FEA9, #$FEAB, #$FEAD, #$FEAF, #$FEB3, #$FEB7,
      #$FEBB, #$FEBF, #$FEC1, #$FEC5, #$FECB, #$FECF, #$00A6, #$00AC,
      #$00F7, #$00D7, #$FEC9, #$0640, #$FED3, #$FED7, #$FEDB, #$FEDF,
      #$FEE3, #$FEE7, #$FEEB, #$FEED, #$FEEF, #$FEF3, #$FEBD, #$FECC,
      #$FECE, #$FECD, #$FEE1, #$FE7D, #$0651, #$FEE5, #$FEE9, #$FEEC,
      #$FEF0, #$FEF2, #$FED0, #$FED5, #$FEF5, #$FEF6, #$FEDD, #$FED9,
      #$FEF1, #$25A0, #$FFFF);

Blessed_Chuan 2014-08-21