Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 146 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

145
Рисунок 9.10 – Приложение Калькулятор. Сложение чисел
Завершить работу приложения можно щелчком по кнопке Выход
или закрыть окно, щелкнув по кнопке .
9.2.4. Обработка исключительных ситуаций
В процессе выполнения приложения Калькулятор возможны иск-
лючительные ситуации, связанные с отсутствием значений операн-
дов при вычислениях, а также делением на нуль при выполнении
операции деления.
В случае попытки вычисления при пустом поле ввода произойдет
ошибка преобразования – пустая строка будет преобразовываться в
число.
Для обработки этих исключительных ситуаций добавим в методы
обработчики событий
OnClick операторы try…except.
Пример обработки в методе BtnDivideClick:
procedure TFormCalc.BtnDivideClick(Sender: TObject);
begin
try
EditResult.Text:= FloatToStr(
StrToFloat(EditOperand1.Text)/
StrToFloat(EditOperand2.Text));
OperatorLabel.Caption:='/';
ResultLabel.Caption :='=';
EditOperand1.SetFocus; 
         Рисунок 9.10 – Приложение Калькулятор. Сложение чисел

  Завершить работу приложения можно щелчком по кнопке Выход
или закрыть окно, щелкнув по кнопке .
  9.2.4. Обработка исключительных ситуаций
   В процессе выполнения приложения Калькулятор возможны иск-
лючительные ситуации, связанные с отсутствием значений операн-
дов при вычислениях, а также делением на нуль при выполнении
операции деления.
   В случае попытки вычисления при пустом поле ввода произойдет
ошибка преобразования – пустая строка будет преобразовываться в
число.
   Для обработки этих исключительных ситуаций добавим в методы
обработчики событий OnClick операторы try…except.

  Пример обработки в методе BtnDivideClick:
  procedure TFormCalc.BtnDivideClick(Sender: TObject);
  begin
    try
      EditResult.Text:= FloatToStr(
                                  StrToFloat(EditOperand1.Text)/
                                  StrToFloat(EditOperand2.Text));
      OperatorLabel.Caption:='/';
      ResultLabel.Caption :='=';
      EditOperand1.SetFocus;


                                 145

Страницы