- 1
- 2
- 3
- 4
- 5
case MessageDlg('Сформировать отчет за месяц (YES), квартал (NO), год (CANCEL)?',mtWarning,[mbYes,mbNo,mbCancel],0) of
mrYes://...
mrNo://...
mrCancel://...
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 1
+92.7
case MessageDlg('Сформировать отчет за месяц (YES), квартал (NO), год (CANCEL)?',mtWarning,[mbYes,mbNo,mbCancel],0) of
mrYes://...
mrNo://...
mrCancel://...
end;
Интересно, что будет, если потребуется расширить программу (добавить новые временные периоды)?