如何在DELPHI中申明全局常量数组

Question

interface
var
  form1: tform1;
  PArray: array of integer;

Answer 1

const
 s:array[1..3] of integer=(1,2,3);

Answer 2

interfaceconst
  S: array[1..2, 1..2] of Integer = ((1, 2), (3, 4));  

Answer 3

下面是我的程序：interfaceconst characterI:array[0..37] of char =('0','1','2','3','4','5','6','7','8','9',
'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T',
'U','V','W','X','Y','Z');const characterII:array[0..37] of char = ('0','C','S','4','K','V','1','B','R',
'T','Y','L','Z','E','2','Q','G','8','H','F','9','M','3','D','O','6','P','A',
'U','5','I','7','W','X','J','N');编译结果确是：
 Numbers of elements differed from the declarition.
 why ??????

Answer 4

//26+10=36
const characterI:array[0..35] of char =('0','1','2','3','4','5','6','7','8','9',
'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T',
'U','V','W','X','Y','Z');const characterII:array[0..35] of char = ('0','C','S','4','K','V','1','B','R',
'T','Y','L','Z','E','2','Q','G','8','H','F','9','M','3','D','O','6','P','A',
'U','5','I','7','W','X','J','N');

Answer 5

//建议用入下声明
//characterI[以前的下标+1]
const
  characterI = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  characterII = '0CS4KV1BRTYLZE2QG8HF9M3DO6PAU5I7WXJN';