Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Массив в качестве параметра   Найти похожие ветки 

 
Romaizdurdoma ©   (2002-12-05 22:10) [0]

Подскажите как передать массив в процедуру, в качестве параметра.


 
wam   (2002-12-05 22:18) [1]

Так и передавай
proc(t: open array of T)
использовать High Low для определения первого и последнего индекса


 
HiEx   (2002-12-05 22:20) [2]

Создай тип (нпример MA = array of byet)
и потом просто передавай его. Только учти что каждый раз он бужет переписывать в стек, а тут есть некоторое ограничение. Так что самый простой способ - это просто передавать указатель (PMA = ^PMA) или просто передавать как var
procedure SomeProc(var m : MA);

Вот и все. А вообще советую купить хорошую книгу (не вводный курс) и прочесть ее.

Удачи.


 
Romaizdurdoma ©   (2002-12-05 22:22) [3]

Я хотел сказать дмумерный массив proc
(t: open array of array of T) не получается


 
HiEx   (2002-12-05 22:34) [4]

Просто определи тип MT = open array of array of T,
а потом везде пользуйся типами.


 
Song ©   (2002-12-05 22:40) [5]

Type Arr: array [1..10] of Integer;
Var Mas:Arr;

Procedure Calc(A:Arr);
Begin
..
End;

...
Calc(Mas);
...

или

Procedure Calc(A:array of Integer);
Begin
...
End;

С паскаля, уважаемый, надо было начинать программировать!!


 
Romaizdurdoma ©   (2002-12-05 22:51) [6]

Спасибо всем.

> Song © (05.12.02 22:40)
> С паскаля, уважаемый, надо было начинать программировать!!

Начинал с фокса (2 года), полгода назад подсел на дел5, а неделю назад на кол. не хватает информации.



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

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

Наверх




Память: 0.48 MB
Время: 0.01 c
3-51641
SemFLY
2002-11-28 17:18
2002.12.16
Иформация о базах...


1-51790
zavdim
2002-12-05 09:13
2002.12.16
Свойство - массив?


7-51974
PycUS
2002-10-16 00:20
2002.12.16
После ввода текста нажимаем Enter и надо чтоб получился OnClick


1-51690
Slavik2k
2002-12-05 20:04
2002.12.16
Transparent и clear


4-52019
Sergei_tlt
2002-11-04 22:10
2002.12.16
Помогите понять