Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c