Скачать: CL | DM;

Динамический массив как параметр в процедуре ?   Найти похожие ветки 

← →
zhurik ©   (2007-04-10 09:17) [0]

Подскажите можно ли передавать в процедуру динамический массив, пробую вот так - не выходит:
procedure tes_(var tess: array of array of integer);

пишет [Error] main.pas(137): E2029 Identifier expected but "ARRAY" found

---

← →
Asail   (2007-04-10 09:20) [1]

procedure tes_(var tess: array of integer);

---

← →
ЮЮ ©   (2007-04-10 09:27) [2]

Следует объявить тип, и затем ехо использовать:

type
 TIntegerDynMatrix: array of array of integer;
...

procedure tes_(var tess: TIntegerDynMatrix);

---

← →
zhurik ©   (2007-04-10 09:32) [3]

Вот тестовый пример, подправьте, если можно, что бы я понял до конца :

procedure tes_(var tess: array of array of integer);

begin
tess[0,0]:=12;
tess[1,1]:=45;
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
 tes:array of array of integer;
 k1, k2, kk1, kk2: integer;
begin
SetLength(tes,2,4); // к примеру
tes[0,0]:=5;
tes[1,1]:=20;
k1:=tes[0,0];
k2:=tes[1,1];
tes_(tes);
kk1:tes[0,0];
kk2:=tes[1,1];
end;

---

← →
Novice   (2007-04-10 09:34) [4]

Объяви тип

type
TIntegerDynMatrix: array of array of integer;

procedure tes_(var tess: TIntegerDynMatrix);

begin
tess[0,0]:=12;
tess[1,1]:=45;
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
tes:TIntegerDynMatrix;
k1, k2, kk1, kk2: integer;
begin
SetLength(tes,2,4); // к примеру
tes[0,0]:=5;
tes[1,1]:=20;
k1:=tes[0,0];
k2:=tes[1,1];
tes_(tes);
kk1:tes[0,0];
kk2:=tes[1,1];
end;

---

← →
zhurik ©   (2007-04-10 09:36) [5]

Спасибо

---

← →
ЮЮ ©   (2007-04-10 09:39) [6]

procedure tes_(var tess: TIntegerDynMatrix);
// var здесь не нужен, если не изменяеися перавая размерность массива

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c