Текущий архив: 2003.06.30;
Скачать: CL | DM;

Вниз

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

← →
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;
Теперь все в порядке!

Подумай сам.

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c