Обработка ошибок времени выполнения программы

Постановка задачи. Демонстрация обработки исключения (ошибки времени выполнения программы) при помощи инструкции try ... except.

Реализация. Для примера введем два числа: расстояние и время. Требуется вычислить скорость. Положите на форму несколько надписей, как показано на рис. 53, два поля TEdit для ввода чисел
и кнопку «Вычислить».

Рис. 53. Пример использования try… except

При вводе чисел могут быть сделаны следующие ошибки:

· не задано время;

· дробная часть числа отделена точкой, а не запятой;

· набраны не цифры.

На следующей странице приведен код обработчика кнопки «Вычислить» с учетом возможных ошибок.

procedure TForm1.Button1Click(Sender: TObject);

var

s : real; // путь

t : real; // время

v : real; // скорость

begin

Label6.Caption := ''; // очищаем поле результата

try

{ Инструкции, которые могут вызвать исключение (ошибку)

StrToFloat – функция, которая преобразует строку символов в вещественное число }

s := StrToFloat(Edit1.Text);

t := StrToFloat(Edit2.Text);

v := s/t;

except

on EZeroDivide do // Деление на ноль

begin

ShowMessage(' Время не может быть равно нулю!');

exit;

end;

on EConvertError do // Невозможно преобразовать строку

// символов в число

begin

ShowMessage('Путь и время должны быть заданы числом' + #13 + 'При записи дробного числа используйте запятую');

exit;

end;

end;

Label6.caption:=FloatToStr(v)+' м/с'; // Вывод результата расчета

end;