как лучше поступить?

← →
brother © (2013-09-29 14:28) [0]

есть такая конструкция:

var btidNONE, btidCLOSE, btidMENU: integer; ... if Buttons.ActiveButton = btidNONE then exit else if Buttons.ActiveButton = btidCLOSE then OwnerForm.Close else if Buttons.ActiveButton = btidMENU then SetScene(grpMenu) else ...

на что можно заменить? case не подходит, тк btidXXX НЕ константы и получают значения динамически...

← →
Туповатый © (2013-09-29 16:26) [1]

else тут лишнее.

пересмотреть алгоритм, сделать константами, применить case. вообще странно, что они получают значения настолько динамически. То есть, сейчас 2 - это меню, а сейчас 2 - это закрыть форму, и все это у одной кнопки... имхо, неудобно, и непонятно - зачем? если в конечном варианте btidNONE - всегда exit. ну так создай свойство, или перечисляемый тип или что-то там еще (не помню уже паскаль) где есть некое btidNONE, присваивай его чему угодно и сравнивай с чем угодно, в том числе с кнопкой.

> сделать константами

да видимо перепишу алгоритм и сделаю константами...

как лучше поступить? Найти похожие ветки