blob: eeb1381eeab7170b99070d75f3a311c7bb912c96 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{$mode TP}
uses ub0339;
type
r = packed record
Foo : Boolean;
Bar : (No, Yes);
Baz : 0 .. 3;
Qux : -1 .. 0;
Fred : 1 .. 7
end;
begin
Writeln ('AAA: Size of packed record r = ', SizeOf (r), ' bytes.');
Writeln ('AAA: Size of packed record r2 = ', SizeOf (r2), ' bytes.');
PrintSize;
end.
|
