blob: 2c30fcd22c92f7c1df16e221e0bd7cb7e3d53580 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{$mode FPC}
unit ub0339;
interface
type
r2 = packed record
Foo : Boolean;
Bar : (No, Yes);
Baz : 0 .. 3;
Qux : -1 .. 0;
Fred : 1 .. 7
end;
procedure PrintSize;
implementation
procedure PrintSize;
begin
Writeln ('BBB: Size of packed record r2 = ', SizeOf (r2), ' bytes.')
end;
begin end.
|
