procedure TForm3.Button1Click(Sender: TObject); var a : array[1..2,1..4] of integer; begin edit1.Text := inttostr(length(a)); // =2 if length(a) > 0 then showmessage(inttostr(length(a[low(a)]))); // =4 // 如果要看a里面的值,用low,high end;