Помогите исправить ошибку в программе - Помощь студентам

Antifa · 29.04.2009, 02:12

Задача стояла так:
Создать в Delphi программу определения порядкового номера буквы латинского алфавита.

Программу написал, рабочая, но преподу не понравилось что-то. В общем заставили переделать. Но в процессе редактирования возникла проблема. Переделанная программа
компилируется без ошибок, но не работает - возникает ошибка см рис. С программированием особо не дружу, программу писать помогали, но с этой ошибкой и они не справились. В файлах архивы с исходниками первого варианта (рабочего) и переделанного. Прошу помощи.

Serge_Bliznykov · 29.04.2009, 09:22

1) нет вызова INIT (можно вызывать на событие Form onCreate
2) нет кода для удаления объекта p (p.Free)

3) для получения порядкового номера достаточно выполнить код:

Код:

ord(UpperCase(Bukva))-ord('A')+1

VVM · 29.04.2009, 11:50

Вот, подправил проект.

Это:

Цитата:

2) нет кода для удаления объекта p (p.Free)

3) для получения порядкового номера достаточно выполнить код:

не учел.

Antifa · 29.04.2009, 23:17

о СПАСИБО ЗА ПОМОЩЬ!

29.04.2009, 09:22	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	1) нет вызова INIT (можно вызывать на событие Form onCreate 2) нет кода для удаления объекта p (p.Free) 3) для получения порядкового номера достаточно выполнить код: Код: `ord(UpperCase(Bukva))-ord('A')+1`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите исправить ошибку в программе	Paul_AG	Общие вопросы C/C++	12	24.03.2009 19:36
ПОМОГИТЕ исправить ошибку в программе	SYL@R	Помощь студентам	1	07.12.2008 19:42
ПОМОГИТЕ исправить ошибку в программе	SYL@R	Помощь студентам	1	21.11.2008 14:48
помогите исправить ошибки в программе...	VDK23	Помощь студентам	1	17.04.2008 13:05
Помогите исправить ошибки в программе	Gambit90	Помощь студентам	1	20.12.2007 16:24

29.04.2009, 23:17	#4
Antifa Новичок Джуниор Регистрация: 29.04.2009 Сообщений: 2	о СПАСИБО ЗА ПОМОЩЬ!