在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 3
4 5 6 7
8 9 10 11