18.11.2009, 19:01 | #11 (permalink) |
Member
Регистрация: 17.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
18.11.2009, 19:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обсуждаемые топики могут вам помочь в решении вопроса День энергетика С Днём учителя! День молодежи Ищу учителя по программированию С++ День Радио День Шарлоток |
18.11.2009, 19:03 | #12 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
какие ветвления вы не поняли?
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9']) then key:=#0; end; В процедуре обработчика нажатия кнопки Button1 ветвление Код:
if not (edit1.Text='') then n:=strtoint(edit1.Text) else n:=0; В программе предусмотрено контекстное меню, содержащее 3 команды: Расчет, О программе, Выход. Эти команды привязаны к соответствующим обработчикам.
__________________
Убить всех человеков! |
18.11.2009, 19:15 | #13 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Значения слов терминальная и консольная различаются, просто нужно было уточнить, что я имел в виду, а не отдавать все на откуп моему извращенному Pascal-ем мышлению
Для терминального приложения листинг можете взять здесь, но нужно будет его адаптировать под вашу версию Delphi.
__________________
Убить всех человеков! |
18.11.2009, 19:24 | #14 (permalink) |
Member
Регистрация: 17.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я конечно понимаю что на вашем-то уровне это всё лёгко и очевидно... Препод вредный на радостях попросит ввести и 1756 г. только ради проверки программы, причём именно чтобы число выдало... так что прошу простить, но эта программа слишком крута для первокурсника...
|
18.11.2009, 19:25 | #15 (permalink) |
Member
Регистрация: 17.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо за ссылку... ну и за помощь соответственно))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
18.11.2009, 19:29 | #16 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Ну так вы ему объясните, что вводить даты ранее даты введения праздника - верх бессмысленности, поэтому и установлен нижний предел во 2 октября 1994 года
Если будут вопросы, на что опирались при написании программы, скажите, что воспользовались базой Delphi World, настоящий дельфоид знает, что это такое и вопросы отпадут
__________________
Убить всех человеков! |
18.11.2009, 19:40 | #18 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
У вас какая версия Delphi установлена? А то я напишу консольный вариант, а вы проект не сможете открыть, чтобы показать. Экзешник, конечно, можно запустить, но для преподавателя важен ход мыслей, что и откуда вы брали при создании программы.
__________________
Убить всех человеков! |
18.11.2009, 20:44 | #20 (permalink) |
Member
Регистрация: 17.11.2009
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Borland Delphi если вас это интересует)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|