tarray delphi

Ответ от Илья Павлов[гуру]
Для начала создадим новый тип данных:

type
TArray2x = array of array of Integer;

Теперь напишем функцию:

function GetArray2x: TArray2x;
begin
...
end;

Но следует обратить внимание на то, что здесь объявлен динамический двумерный массив. Это значит, что перед его использованием необходимо выделить память под N строк и для каждой строки отдельно выделить память. Строго говоря, можно таким образом создать массив непрямоугольной формы.

Вот пример функции, возвращающей п/у массив 3 х 3:

function Get3x3: TArray2x;
var
A: TArray2x;
begin
SetLength(A, 3); // Выделяем память под 3 строки
// Создаем каждую строку
SetLength(A[0], 3);
SetLength(A[1], 3);
SetLength(A[2], 3);
// Возвращаем
Result := A;
end;

После использования динамического массива, память из-под него необходимо освободить:

// Порядок такой: сначала каждую строку, потом их массив
SetLength(A[0], 0);
SetLength(A[1], 0);
SetLength(A[2], 0);
SetLength(A, 0);

===========================
Если мы заранее знаем размерность двумерного массива, то принцип будет такой:

Вводим новый тип данных:

type TArray2x = array[0..2, 0..2] of Integer;

И создаем функцию:

function GetArray2x: TArray2x;
var
A: TArray2x;
begin
// В этом случае никакую память выделять не нужно, можно сразу обращаться к элементам
A[0, 0] := 15;
A[1, 2] := -25;
...
Result := A;
end;