在delphi中如何初始化数组？

Question

var
  a:array[0..3] of integer=(1,2,3,4);

Answer 1

type TDigits = array[0..1,1..7] of integer;
type PDigits =^TDigits;procedure TForm1.ArrayInit(A:PDigits);
var
  i,j:integer;
begin
  for i:=0 to 1 do
  begin
    for j:=1 to 7 do
    begin
       A[i,j]:=i+j;
    end;
  end;
end;

Answer 2

楼上有错
A^[i,j]:=i+j如果全部赋空值： FillChar(...)

Answer 3

静态数组：
声明：
  aTest: array [1..3] of Integer = (1,2,3);动态数组：
声明：
  aTest: array if Integer;使用：
  SetLength(aTest, 2);
  aTest[0]:=0;
  aTest[1]:=0;释放：
  aTest:=nil;判断长度：
  Length(aTest);