Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2014.08.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
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, присваивай его чему угодно и сравнивай с чем угодно, в том числе с кнопкой.


 
brother ©   (2013-09-29 16:37) [2]

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

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2014.08.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.003 c
15-1390391993
Novicer
2014-01-22 15:59
2014.08.17
Как узнать дату создания Биоса в Восьмерке?


15-1390320023
ошин
2014-01-21 20:00
2014.08.17
ищу фильм. старый


15-1390167459
Пит
2014-01-20 01:37
2014.08.17
Посоветуйте что-то типа двухколоночного CheckBox а


15-1388867402
Юрий
2014-01-05 00:30
2014.08.17
С днем рождения ! 5 января 2014 воскресенье


15-1389174438
Novicer
2014-01-08 13:47
2014.08.17
Как установить Firebird вместе с прогой?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский