blob: e0731a708241e831a98e10588c2993732efd72b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %norun }
{$mode delphi}
type
TExceptionMask = (emInvalid, emDenormalized, emZeroDivide,
emOverflow, emUnderflow, emPrecision);
TExceptionMasks = set of TExceptionMask;
var
s: TExceptionMasks;
begin
s:=[];
writeln(byte(s));
end.
|
