home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / ExceptMisc / Except7.pas < prev   
Pascal/Delphi Source File  |  1998-03-26  |  338b  |  20 lines
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   I, J, K: Integer;
  4. begin
  5.   I := 0;
  6.   J := 10;
  7.   try
  8.     K := J div I;
  9.   except
  10.     on E: EDivByZero do
  11.     begin
  12.       ShowMessage(
  13.        'Divide error! '+
  14.        ' I=' + IntToStr(I) +
  15.        ' J=' + IntToStr(J) +
  16.        ' K=' + IntToStr(K) );
  17.     end;
  18.   end;
  19. end;
  20.