|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2006, 13:58 | #1 |
Регистрация: 20.12.2006
Сообщений: 5
|
Помогите с try...
Допустим имеется вот такой код... Упростил до минимального понимания...
procedure TForm1.Button1Click(Sender: TObject); var u: real; // напряжение r: real; // сопротивление i: real; // ток begin Label1.Caption := ''; try // инструкции, которые могут // вызвать исключение (ошибку) u := StrToFloat(Edit1.Text); r := StrToFloat(Edit2.Text); i := u / r; except on EZeroDivide do // деление на ноль begin ShowMessage('Сопротивление не может быть равно нулю!'); exit; end; on EConvertError do // невозможно преобразовать строку символов в число begin ShowMessage('Напряжение и сопротивление должны быть заданы числом.' + #13 +'При записи дробного числа используйте запятую.'); exit; end; end; Label1.caption := FloatToStr(i) + ' А'; end; По идее, при попытке деления на ноль должно вылезти сообщение " 'Сопротивление не может быть равно нулю"... а вместо этого вылвзит самая обычная ошибка! Облазил много форумов по этой теме, но ничего путевого так и не нашел... Как же сделать так, чтобы вылазило сообщение "'Сопротивление не может быть равно нулю!!!" СПАСИБО! P.S.: Через условие IF...ELSE не катит... Именно нужно try, ни или еще какой-нють другой способ... |
20.12.2006, 14:36 | #2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,501
|
дописал 2 строчку
а что тебе мешает вывести Showmessage('Делить на ноль нельзя');
Всё понял в чём дело... Ты откомпилируй код. и потом запускай exe файл. |
20.12.2006, 14:50 | #3 |
Регистрация: 20.12.2006
Сообщений: 5
|
Всё! Спасибо за помощь... всего-то нужно было...(ну я только учусь :-) ) Вопрос решен... Если кому-то интересно, отвечу... Если запускать программу в режиме компиляции, то ошибка будет появляться... Если запускать скомпилированный ехе файл, то все будет работать нормально!
|
20.12.2006, 15:45 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Отключайте во время подобного дебагинга отображение ошибок компиляции в чем проблема.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |