home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
ExceptMisc
/
Except7.pas
< prev
Wrap
Pascal/Delphi Source File
|
1998-03-26
|
338b
|
20 lines
procedure TForm1.Button1Click(Sender: TObject);
var
I, J, K: Integer;
begin
I := 0;
J := 10;
try
K := J div I;
except
on E: EDivByZero do
begin
ShowMessage(
'Divide error! '+
' I=' + IntToStr(I) +
' J=' + IntToStr(J) +
' K=' + IntToStr(K) );
end;
end;
end;