|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Имя переданной переменной
Всем доброго....
Вопрос заключается в следующем: Есть некоторая функция типа shortstring: SomeFunction(bool_FuncParam: boolean):shortstring; из разных мест программы в нее могут передаваться четыре переменные (Parall, Ortho, Blinding, Select), соответственно имеющие значение true or false, требуется на выходе функции получить имя входящей переменной при значении true этой входящей переменной, т.е. Код:
function SomeFunction(bool_FuncParam: boolean):shortstring; begin if not bool_FuncParam then Result:='Nothing' else begin if .........{bool_FuncParam Name as Parall} then Result:='Parall'; if .........{bool_FuncParam Name as Ortho} then Result:='Ortho'; if .........{bool_FuncParam Name as Blinding} then Result:='Blinding'; if .........{bool_FuncParam Name as Select} then Result:='Select'; end; end; передача значения осуществляется соответственно Memo1.Lines.Add(SomeFunction(Parall)); Memo1.Lines.Add(SomeFunction(Ortho)); Memo1.Lines.Add(SomeFunction(Blinding)); Memo1.Lines.Add(SomeFunction(Select)); Какие могут быть соображения по данному вопросу? Понять, что хочет заказчик - бесценно, ведь он платит MasterCard |