Работа с функциями, находящимеся в отдельном модуле
Cosinus © (2004-08-10 14:27:00)
Заранее извиняюсь за возможно глупый вопрос.
Допустим у меня есть отдельный модуль, в который я запихал
несколько постоянно необходимых мне функций, но так как эти функции
от программы к программе либо в одной и той же программе совсем
слегка изменяются и дабы не плодить десяток клонов, то было принято
решение написать их универсальными. Но... Универсальность в моем
случае получилось громоздкой, в том смысле, что каждый вызов
выглядит примерно так
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:00) [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)
Наверх 
ЧАТ |
Орешник |
|
