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

Вниз

Передача параметров в процедуру или функцию   Найти похожие ветки 

 
Диамонд   (2007-04-19 16:15) [0]

Уважаемые мастера помогите понять каким образом мне передавать параметры в функцию или процедуру и как потом с ними работать ?

К примеру я постоянно вижу в исходниках что в некоторые процедуры передается один некий параметр, который несет в себе кучу других параметров, например:
procedure SameProc(Msg:string; Params:TSameType);
....

а потом строкой в процедуре типа
if Visible in Params then something...

Расскажите как это делать самому и что за тип параметра использовать.


 
clickmaker ©   (2007-04-19 16:18) [1]

F1 - читать про set и оператор in
а также, там много других интересных типов


 
Диамонд   (2007-04-19 16:20) [2]


> F1 - читать про set и оператор in
> а также, там много других интересных типов

Так я видел что там используют типы Cardinal помоему с множествами я работать умею...
щас поищу код и предоставлю.


 
Плохиш ©   (2007-04-19 16:27) [3]


> Диамонд   (19.04.07 16:15)  
> Уважаемые мастера помогите понять каким образом мне передавать
> параметры в функцию или процедуру и как потом с ними работать ?

Книжки разные умные читать не пробовал? А пора бы уже...


 
_Аноним   (2007-04-19 16:36) [4]

type
TSameType = (st1, st2, st3, st4);
TSameTypes = set of  TSameType;

procedure SameProc(Msg:string; Params:TSameTypes);
begin
if st2 in Params then

вызов:
SameProc(",ka,k,ak,a", [st1, st3])



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

Форум: "Основная";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.039 c
2-1179154246
Lordalex
2007-05-14 18:50
2007.06.17
помогите с ошибкой


15-1178522752
TUser
2007-05-07 11:25
2007.06.17
Саркази - выбор французов


2-1179912719
evg123
2007-05-23 13:31
2007.06.17
Разрешающая способность


8-1157263841
McFalu
2006-09-03 10:10
2007.06.17
Вопрос о 32 битном битмапе.


3-1174904729
Xmen
2007-03-26 14:25
2007.06.17
Master Detail связь





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский