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

Вниз

Работа с функциями, находящимеся в отдельном модуле   Найти похожие ветки 

 
Cosinus ©   (2004-08-10 14:27) [0]

Заранее извиняюсь за возможно глупый вопрос.
Допустим у меня есть отдельный модуль, в который я запихал несколько постоянно необходимых мне функций, но так как эти функции от программы к программе либо в одной и той же программе совсем слегка изменяются и дабы не плодить десяток клонов, то было принято решение написать их универсальными. Но... Универсальность в моем случае получилось громоздкой, в том смысле, что каждый вызов выглядит примерно так
My_Function(Sender:TObject,Par1,Par2,Par3,Par4,Par5,Par6)
, что делает код плохочитаемым. Нелязя ли в самом начале сделать что то типа следующего...
My_funk_1=My_Function(Send1,a,b,c,d,e,f)
My_funk_2=My_Function(Send2,g,h,i,j,k,l)

и уже потом вызывать их через My_func?
Заранее благодарен за любые советы и комментарии, Владислав.


 
jack128 ©   (2004-08-10 14:31) [1]


> My_funk_1=My_Function(Send1,a,b,c,d,e,f)
> My_funk_2=My_Function(Send2,g,h,i,j,k,l)
ничего не понял. Поставь вместо "=" - ":=" и объяви My_funk_1 как переменную и используй дальше значение этой переменной ;-)

Для сокращения числа вводимых параметров можноо использовать параметры по умолчанию. В зависимости от логики функции можно испоьзовать константный массив (array of const)



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

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

Наверх




Память: 0.44 MB
Время: 0.037 c
3-1090936502
AlexanderSK
2004-07-27 17:55
2004.08.22
Разрыв коннекта с БД


8-1086246500
dellax
2004-06-03 11:08
2004.08.22
Чтение TGA формата


1-1091666566
rosl
2004-08-05 04:42
2004.08.22
showmessage


1-1091599712
CoToR
2004-08-04 10:08
2004.08.22
Добавление свойств в OCX в ActiveX Form


8-1086552818
xman
2004-06-07 00:13
2004.08.22
CANVAS





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