Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.16;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
8-51843
lexusU
2002-09-02 12:12
2002.12.16
Где взять исходники DirectDraw DirectSound DXCommon


14-51906
Filat
2002-11-24 10:00
2002.12.16
Запись на CD-R, CD-RW


4-52009
kosdem
2002-11-04 08:18
2002.12.16
Алгоритмы


1-51755
Berg
2002-12-04 15:51
2002.12.16
Не запускается HELP


1-51713
NetKnight
2002-12-05 21:41
2002.12.16
Русский шрифт и буфер обмена





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский