t_id
558
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.