home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / ExceptMisc / Except5.pas < prev    next >
Pascal/Delphi Source File  |  1998-03-26  |  433b  |  23 lines
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   I, J, K: Integer;
  4.   P: Pointer;
  5. begin
  6.   I := 0;
  7.   J := 10;
  8.   GetMem(P, 4098);
  9.   try
  10.     try
  11.       K := J div I;
  12.       ShowMessage('Results: K=' + IntToStr(K));
  13.     except
  14.       ShowMessage('Divide error! ' +
  15.        ' I=' + IntToStr(I) +
  16.        ' J=' + IntToStr(J) );
  17.     end;
  18.   finally
  19.     FreeMem(P, 4098);
  20.     ShowMessage('Memory was freed');
  21.   end;
  22. end;
  23.