dctb:array[1..2,1..38] of Single=((0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) ):…
这是一个实例: procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:='this is a test'; setlength(arr,0,0); setlength(arr,4,5); showmessage(arr[1,2]); end; 声明一个二维数组的方法是用 array of array of…
这是一个实例: procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:='this is a test'; setlength(arr,0,0); setlength(arr,4,5); showmessage(arr[1,2]); end; 声明一个二维数组的方法是用 array of array of…