Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / tbs / tb0339.pp
Size: Mime:
{$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.