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

← →
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)

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