Главная страница
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.02 c
1-1177058182
Маруська
2007-04-20 12:36
2007.06.17
Расположение диаграммы на листе в Excel


1-1177080291
DelphiLexx
2007-04-20 18:44
2007.06.17
Frame - как переопределить метод


2-1179922170
Vpp
2007-05-23 16:09
2007.06.17
Ошибка ввода/вывода при записи в текстовый файл


3-1174895674
Nikefest
2007-03-26 11:54
2007.06.17
Русские буквы в базе


9-1153370196
aKirill.INFO
2006-07-20 08:36
2007.06.17
Несколько экранов