Главная страница
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.47 MB
Время: 0.075 c
6-1087810555
atruhin
2004-06-21 13:35
2004.08.22
Ошибка при закрытии сокета


1-1091560738
g-l-u-k
2004-08-03 23:18
2004.08.22
Как определить каким пакером сжат файл или язык программирования?


14-1091539354
Алхимик
2004-08-03 17:22
2004.08.22
про Warning


14-1091605212
Layner
2004-08-04 11:40
2004.08.22
Почему такая дискриминация русского???


3-1091013617
shulgin_dmitrii
2004-07-28 15:20
2004.08.22
FireBird+BLOB+Dynamic Array - не работает ...