在Delphi中,可以使用类似于其他语言的二维数组的概念来定义和赋值二维数组。以下是一个示例:
定义二维数组:var myArray: array of array of Integer;分配二维数组的大小:SetLength(myArray, rowCount, colCount);其中,rowCount和colCount分别表示二维数组的行数和列数。
myArray[rowIndex, colIndex] := value;其中,rowIndex和colIndex表示要赋值的元素的行索引和列索引,value表示要赋给该元素的值。
完整的示例代码如下所示:
program TwoDimensionalArray;{$APPTYPE CONSOLE}uses System.SysUtils;var myArray: array of array of Integer; rowCount, colCount: Integer; rowIndex, colIndex: Integer;begin rowCount := 3; colCount := 4; SetLength(myArray, rowCount, colCount); for rowIndex := 0 to rowCount - 1 do begin for colIndex := 0 to colCount - 1 do begin myArray[rowIndex, colIndex] := rowIndex * colCount + colIndex; end; end; for rowIndex := 0 to rowCount - 1 do begin for colIndex := 0 to colCount - 1 do begin Write(myArray[rowIndex, colIndex], ' '); end; Writeln; end; Readln;end.上述的示例代码定义了一个3行4列的二维数组,并使用嵌套循环对其进行赋值,并最后输出二维数组的内容。输出结果为:
0 1 2 34 5 6 78 9 10 11 
