home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / ExceptMisc / Except2.pas < prev    next >
Pascal/Delphi Source File  |  1998-03-25  |  476b  |  22 lines
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   I, J, K, Q, R, S, T: Integer;
  4. begin
  5.   I := 20; J := 10; Q := 123; T := 456;
  6.   try
  7.     K := (I div J) - 2;
  8.     R := Q div K;  // ???
  9.     S := T div R;
  10.   except
  11.     ShowMessage(
  12.      'Divide error! '+
  13.      ' I=' + IntToStr(I) +
  14.      ' J=' + IntToStr(J) +
  15.      ' K=' + IntToStr(K) +
  16.      ' Q=' + IntToStr(Q) +
  17.      ' R=' + IntToStr(R) +
  18.      ' S=' + IntToStr(S) +
  19.      ' T=' + IntToStr(T) );
  20.   end;
  21. end;
  22.