- 1
- 2
- 3
- 4
- 5
case MessageDlg('Сформировать отчет за месяц (YES), квартал (NO), год (CANCEL)?',mtWarning,[mbYes,mbNo,mbCancel],0) of
mrYes://...
mrNo://...
mrCancel://...
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+92.7
case MessageDlg('Сформировать отчет за месяц (YES), квартал (NO), год (CANCEL)?',mtWarning,[mbYes,mbNo,mbCancel],0) of
mrYes://...
mrNo://...
mrCancel://...
end;
Интересно, что будет, если потребуется расширить программу (добавить новые временные периоды)?
Pencioner 31.01.2010 18:03 # +6
Сформировать отчет за неделю или месяц (YES), квартал или год (NO)
Ну а потом о каждому из нажатий уточнение:
Сформировать отчет за неделю (YES), месяц (NO)
и т.д.
кароче, возможностей для расширения просто немеряно (ржу с кода) :)
Lester 31.01.2010 18:24 # +2
Только мне на новой работе приходится это чудо сопровождать по наследству.
И это просто полный п****ц.
Одно дело, когда человек говнокодит вследствие непонимания каких-то базовых принципов программирования, другое – когда говнокодит сознательно из-за банальной ленн (тупости).
Как мне сказал автор этого фрагмента – было лень добавлять элементы управления.
В этой программе я только начал разбираться, так что продолжение следует…
ISith 31.01.2010 19:29 # +2
Увольняйся нахрен из такой конторы, а автору под жопу ногами надавай
Lester 31.01.2010 19:47 # +1
ISith 31.01.2010 21:54 # +1.2
guest 01.06.2010 22:12 # 0
TarasB 31.01.2010 18:29 # +2
Надо тогда уж так, чтобы названия кнопок соответствовали содержанию:
Первый вопрос "сформировать отчёт за год"? И 3 варианта. Если нажато нет, то второй вопрос "может тогда за квартал?". А третий вопрос "ну тогда хотя бы за месяц?".
При этом число вопросов будет неограничено.
guest 31.01.2010 21:57 # +5
guest 31.01.2010 21:58 # 0
guest 01.02.2010 08:22 # +1.2
hardcoder 01.02.2010 13:46 # +2
nil 01.02.2010 13:57 # +2.4
Никто не уйдет без отчета!
Еще хорошо:
Отформатировать диск? OK - диск C, NO - диск D, CANCEL - оба.
Arch 07.04.2010 09:11 # 0
Спасибо, поржал.
adli__82 17.08.2010 12:46 # 0