Разработка приложений в системе Delphi. Шейкер Т.Д. - 58 стр.

группа конструкций on...do напоминает оператор case. К исключениям, не
имеющим своих локальных обработчиков, применяется механизм глобальной
обработки через объект Application.
try
 {Операторы, выполнение которых может вызвать ошибку}
except
 {Операторы, которые должны быть выполнены в случае ошибки}
  on Exception1 do ...;
  on Exception2 do ...;
  ...
else
  ...
end;
    Рассмотрим следующий пример. В поля Edit1 и Edit2 записываются
целые числа. При щелчке по кнопке Button1 выполняется перевод введённых
строк в числовой формат, первое число делится на второе и результат
выводится в Edit3. Затем в Memo1 записываются исходные строки, сумма
чисел и частное от деления первого числа на второе.
    Внимание! При тестировании приложений желательно пользоваться
созданным exe-файлом. Запускать приложения из Delphi можно, но при этом
надо учитывать, что при возникновании исключительной ситуации прежде
всего сработает система защиты Delphi. При появлении системного
сообщения его надо прочитать, окно сообщения закрыть и выполнить команду
Run для продолжения работы.
procedure TForm1.Button1Click(Sender: TObject);
Var a,b:integer;
     rez:extended;
begin
  a:=strtoint(Edit1.Text);
  b:=strtoint(Edit2.Text);
  rez:=a/b;
  Edit3.Text:=floattostr(rez);
  Memo1.Lines.Add(Edit1.Text);
  Memo1.Lines.Add(Edit2.Text);
  Memo1.Lines.Add(inttostr(a+b));
  Memo1.Lines.Add(floattostr(rez));
end;

    Во время работы приложения исключительные ситуации могут возникнуть
при выполнении преобразования строка-число и при вычислении частного от


                                      58