Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: 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 вся ветка

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

Наверх




Память: 0.49 MB
Время: 0.046 c
15-1190712172
Layner
2007-09-25 13:22
2007.10.28
Чем отличается программа с "Designed for Vista" от 2000/XP напр.?


2-1191311223
Abcdef123
2007-10-02 11:47
2007.10.28
Поясните Пример кода на использование KeyPush.DLL


6-1171023506
Alek_1
2007-02-09 15:18
2007.10.28
Как определить хендл открытого удаленного подключения к ине...


2-1191480014
KLAUS
2007-10-04 10:40
2007.10.28
Поиск по Реестру


2-1191311740
tmp
2007-10-02 11:55
2007.10.28
Неправильно удаляются записи из нетипизированного файла