example of a 2D array in delphi

Question

example of a 2D array in delphi

Answer 1

Here is an example of a 2D array in Delphi:

```delphi
program TwoDArrayExample;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
ROWS = 3;
COLS = 3;

var
myArray: array[0..ROWS-1, 0..COLS-1] of Integer;
i, j: Integer;

begin
// Initialize the 2D array
for i := 0 to ROWS-1 do
begin
for j := 0 to COLS-1 do
begin
myArray[i, j] := i * COLS + j;
end;
end;

// Display the contents of the 2D array
for i := 0 to ROWS-1 do
begin
for j := 0 to COLS-1 do
begin
Write(myArray[i, j], ' ');
end;
Writeln;
end;

Readln;
end.
```

In this example, we have a 2D array called `myArray` that has 3 rows and 3 columns. We initialize the array with some values in a nested loop and then display the contents of the array using another nested loop.