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

ламерский вопрос:(   Найти похожие ветки 

← →
DeadLord ©   (2007-10-08 20:54) [0]

Ребят, вопрос действительно дурной: есть двумерный массив и мне надо передать его в процедуру параметром. Как это сделать? проблема в том, что я не могу объявить параметр процедуры двумерным массивом, только одномерным...

---

← →
Плохиш ©   (2007-10-08 20:59) [1]

type TMyArr = array[0..10, 0..100] of integer;
...
function Super(AArr: TMyArr): Boolean;

---

← →
vasIZmax ©   (2007-10-08 21:01) [2]

type ddd =
 array of array of integer;

procedure XXX(a: ddd);

---

← →
engine ©   (2007-10-08 21:01) [3]

> [0] DeadLord ©   (08.10.07 20:54)
> могу объявить параметр процедуры двумерным массивом, только
> одномерным.

Type
 TMyArray = array [1&#13310, 1&#13310] of Integer;
&#133
procedure MyProc(Param : TMyArray);
begin
//
end;

---

← →
DeadLord ©   (2007-10-08 21:01) [4]

Спасибо:) заработало

---

← →
MetalFan ©   (2007-10-08 21:03) [5]

> array [1㏾, 1㏾] of Integer;

ой, шо это?!

---

← →
engine ©   (2007-10-08 21:04) [6]

> [5] MetalFan ©   (08.10.07 21:03)

это array [1 &#133 10 , 1 &#133 10] of Integer;

незнаю, почему так получилось. :)

---

← →
engine ©   (2007-10-08 21:06) [7]

> [6] engine ©   (08.10.07 21:04)

ну и конечно же две точки вместо трех.

---

← →
Dib@zol ©   (2007-10-08 21:07) [8]

Однако, лучше параметром передавать не сам массив, а указатель на него, ибо он в этом случае не дублируется, зажирая память.

Type
TMyArray = array [10, 10] of Integer;
PMyArray = ^TMyArray;
…
procedure MyProc(Param : PMyArray);
begin
 Param^[1, 1]:=12345;
end;

---

← →
DeadLord ©   (2007-10-08 21:36) [9]

еще такая проблема...

получаю данные для массива:
       begin
       for i:=1to xx do
               for j:=1to yy do
                      w[i,j]:=strtofloat(form2.stringgrid1.Cells[i,j]);  
                       end;

Если запускать по Ф9, то все идет гладко, но большая часть массива заполняется нолями, хотя стринг грид не нулевая вообще. Если попробовать выполнить по шагам, то выпадает access violation и окошко отладчика... в чем дело?!

---

← →
Anatoly Podgoretsky ©   (2007-10-08 22:10) [10]

> Dib@zol  (08.10.2007 21:07:08)  [8]

Грубо

procedure MyProc(var Param: TMyArray);

---

← →
Вася Правильный   (2007-10-08 22:22) [11]

> DeadLord ©   (08.10.07 21:36) [9]

http://delphimaster.net/view/15-1191866338/

---

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

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



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