home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / ExceptMisc / Except3.pas < prev    next >
Pascal/Delphi Source File  |  1998-03-25  |  713b  |  32 lines
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   I, J, K, Q, R, S, T: Integer;
  4.   { Sub-procedure for displaying error message }
  5.   procedure ReportError;
  6.   begin
  7.     ShowMessage(
  8.      'Divide error! '+
  9.      ' I=' + IntToStr(I) +
  10.      ' J=' + IntToStr(J) +
  11.      ' K=' + IntToStr(K) +
  12.      ' Q=' + IntToStr(Q) +
  13.      ' R=' + IntToStr(R) +
  14.      ' S=' + IntToStr(S) +
  15.      ' T=' + IntToStr(T) );
  16.   end;
  17. begin
  18.   I := 20; J := 10; Q := 123; T := 456;
  19.   if J = 0 then ReportError else
  20.   begin
  21.     K := (I div J) - 2;
  22.     if K = 0 then ReportError else
  23.     begin
  24.       R := Q div K;
  25.       if R = 0 then ReportError else
  26.       begin
  27.         S := T div R;
  28.       end;
  29.     end;
  30.   end;
  31. end;
  32.