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

Вниз

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

 
Диамонд   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1179569994
DeadMeat
2007-05-19 14:19
2007.06.17
ESC в диалогах


15-1179950039
Kris_
2007-05-23 23:53
2007.06.17
Как пропустить проверку пре-реквизитов при установке Дельфи?


15-1179882416
Melkii
2007-05-23 05:06
2007.06.17
Помогите сделать рейтинг данных


6-1164180002
jorsand
2006-11-22 10:20
2007.06.17
Подскажите как получить доступ к сетевому ресурсу


1-1176964731
kukuikar
2007-04-19 10:38
2007.06.17
Проверить существует ли сетевой путь или с сети ли сервер