Дин. двумерный массив.

← →
Bagroff (2003-06-18 19:19) [0]

Народ.
Почему сие объявление функции:
function Calculate(matrix: array of array of Integer): Integer;
Не проходит? Неужели нельзя двумерный дин. массивы передавать ?

← →
mrcat (2003-06-18 19:22) [1]

можно, но надо писать:

type TarMatr = array of array of integer; function Calculate(matrix: TarMatr): integer; begin end;

← →
Bagroff (2003-06-18 19:30) [2]

Вопрос тогда номер два :) обнаглею...

type TMatrix = array of array of integer;
function TDecisionForm.SumCost(matrix: TMatrix): Integer;

---

nwc_cost := SumCost(nwc_table.matrix);

а nwc_table это рекорд вот такогот типа:
type
TPlan = record
sender : integer;
reciver : integer;
matrix : array of array of integer;
offers : array of integer;
demand : array of integer;
end;

но при передачи в функцию...Инкомпатибл тайпс...:(

← →
mrcat (2003-06-18 19:34) [3]

type TMatrix = array of array of integer; function TDecisionForm.SumCost(matrix: TMatrix): Integer;
nwc_cost := SumCost(nwc_table.matrix);

а nwc_table это рекорд вот такогот типа:
type TPlan = record sender : integer; reciver : integer; matrix : TMatrix; offers : array of integer; demand : array of integer; end;

← →
Юрий Зотов (2003-06-18 19:35) [4]

type
TPlan = record
...
matrix: TMatrix;
...
end;

← →
Armen (2003-06-19 02:58) [5]

>Вопрос тогда номер два :) обнаглею...

procedure Test;
var
a: array of integer;
b: array of integer;
begin
a:= b;
end;
Получаем incompatible types!

Type
TArray = array of integer;
procedure Test;
var
a: TArray;
b: TArray;
begin
a:= b;
end;
Теперь все в порядке!

Подумай сам.

Дин. двумерный массив. Найти похожие ветки