静态数组的定义方法

//1. 标准方法：
var
  MyArr: array[0..10] of Integer;  //定义静态数组


//2. 可以使用非0下标：
var
  MyArr: array[9..10] of Integer;  //不能提倡，这样不容易与系统函数沟通


//3. 根据预定义类型来声明数组：
type
  TMyArr = array[0..10] of Integer;  //先定义一个数组类型
var
  MyArr: TMyArr;  //再定义静态数组


//4. 在非过程区可以直接赋值：
var
  MyArr: array[0..2] of Integer = (11,22,33);


//5. 多维数组：
var
  MyArr: array[0..2, 0..2] of Integer;
begin
  //使用
  MyArr[1,2] := 100;
end;


//6. 根据子界定义数组：
type
  TRange = 0..10;
var
  MyArr: array[TRange] of Integer;


//7. 根据枚举定义数组：
type
  TEnums = (Enum1,Enum2,Enum3);
var
  MyArr: array[TEnums] of string;
begin
  MyArr[Enum1] := '万一';
  ShowMessage(MyArr[Enum1]);  //万一
end;


//8. 根据其他类型定义数组：
var
  MyArr: array[Byte] of Char;
begin
  MyArr[255] := #65;
  ShowMessage(MyArr[255]);  //A
end;

//应尽量不使用内建类型，可以新建类型：
type
  TNewByte = Byte;
var
  MyArr: array[TNewByte] of Char;
begin
  MyArr[255] := #65;
  ShowMessage(MyArr[255]);  //A
end;

//也可以使用类型别名：
type
  TChar = type Char;
var
  MyArr: array[TChar] of Byte;
begin
  MyArr['C'] := 255;
  ShowMessage(IntToStr(MyArr['C']));  //255
end;

//同时定义类型:
type
  MyRec = record
    s: string;
    r: Real;
    b: Byte;
  end;
var
  Arr1: array[0..100] of MyRec;
  Arr2: array[0..100] of record s: string; r: Real; b: Byte; end;  //可以直接这样定义
  Arr3: packed array[0..100] of MyRec;  //压缩数组定义, 好像没有区别?