Главная страница
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.024 c
4-1177292492
Cj
2007-04-23 05:41
2007.10.28
Раскрытие процесса


11-1175014534
ElectriC
2007-03-27 20:55
2007.10.28
Application.Title


15-1191493107
Vlad Oshin
2007-10-04 14:18
2007.10.28
еще раз про матрицу :)


1-1187035237
timself
2007-08-14 00:00
2007.10.28
Приблема с RichEdit ...


2-1191398280
Riply
2007-10-03 11:58
2007.10.28
Создание резервной копии для отдельного файла.