procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of double;
begin
setlength( A, 10,3);
// A 被初始化为 10 行 3列的数组
A[0][2]:=1.5;
A[0][0]:=2.3 ;
A[0][1]:=A[0][0]+A[0][2];
showmessage( format( '%f',[ A[0][1] ]));
end;