Delphi 数组使用新发现

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
const
  TAbc: array[TMonth] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);

//原来数组定义是不一定使用array[0..5] of integer.只要是有序类型就可以

{帮助上这样说的

Static array types are denoted by constructions of the form 

array[indexType1, ..., indexTypen] of baseType; 

where each indexType is an ordinal type whose range does not exceed 2GB. Since the indexTypes index the array, the number of elements an array can hold is limited by the product of the sizes of the indexTypes. In practice, indexTypes are usually integer subranges. 

}
 // TAbc: array[Boolean] of string = ('True', 'False');
var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 11 do
    memo1.Lines.Add(inttostr(TAbc[TMonth(i)]));
end;

end.