二维数组赋初值的问题

Question

有谁知道delphi中二维数组怎么赋初值？不能用for 循环，我要进行一个矩阵运算，初值是别人给定的

Answer 1

var
  a:Array[0..5,0..6] of Integer;
  i,j:Integer;
begin
  for i:=0 to 5 do 
    for j:=0 to 6 do
      a[i,j]:=0;
end;

Answer 2

定义常数数组，例如：
const
  a:array [0..1,0..1] of integer=(1,2,3,4);

Answer 3

const aa: array[0..1,0..1] = {{0,1},{0,1}};