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 >
Wrap
Pascal/Delphi Source File
|
1998-03-25
|
476b
|
22 lines
procedure TForm1.Button1Click(Sender: TObject);
var
I, J, K, Q, R, S, T: Integer;
begin
I := 20; J := 10; Q := 123; T := 456;
try
K := (I div J) - 2;
R := Q div K; // ???
S := T div R;
except
ShowMessage(
'Divide error! '+
' I=' + IntToStr(I) +
' J=' + IntToStr(J) +
' K=' + IntToStr(K) +
' Q=' + IntToStr(Q) +
' R=' + IntToStr(R) +
' S=' + IntToStr(S) +
' T=' + IntToStr(T) );
end;
end;