一維、二維的固定、動態大小陣列宣告及使用

procedure TForm1.Button1Click(Sender: TObject);
var
  //固定一維、二維陣列
  A1 : array[1..10] of Integer; //設定範圍
  A2 : array[1..10,1..10] of Integer;

  //動態一維、二維陣列
  B1, D : Array of Integer;
  B2 :array of array of Integer;
const
  //常數一維、二維陣列
  C1: array[0..6] of String = ('日', '一', '二', '三', '四', '五', '六');
  C2: array[0..6,0..1] of String = (('日','7'), ('一','1'), ('二','2'), ('三','3'), ('四','4'), ('五','5'), ('六','6'));
  //也可用
  //C2: array[0..6] of array[0..1] of String = (('日','7'), ('一','1'), ('二','2'), ('三','3'), ('四','4'), ('五','5'), ('六','6'));
begin
  SetLength(B1,10); //代表給定 B1[0..9]
  SetLength(B2,10,10); //代表給定 B2[0..9][0..9]

  B1[1]:=5;
  A1[2]:=4;
  B2[1][1]:=2;

  A1[1] := 1; // 不能用A1[0]

  showmessage(inttostr(B1[1]));   //顯示5
  showmessage(inttostr(B2[1][1]));

  // Low及High的使用 (目前使用只能取回有一維的起始值)
  showmessage(inttostr(Low(B1))); //顯示0
  showmessage(inttostr(High(B1))); //顯示9

  // Copy的使用
  D := Copy(B1); //用Copy 不加參數則會將 B1 陣列全部Copy 到D陣列去 ps:動態宣告可用而已

  // 如何釋放
  SetLength(B1,0);//這裡申請將B1釋放
  B1:=nil;//釋放B1
end;