fork download
copy 
  1. type
  2.   THeader = record
  3.     FileType: string[4];
  4.     CryptKey: integer;
  5.     QStart: int64;
  6.     CCount: integer;
  7.     QCount: integer;
  8.   end;
  9.  
  10. type
  11.   THeaderPacked = packed record
  12.     FileType: string[4];
  13.     CryptKey: integer;
  14.     QStart: int64;
  15.     CCount: integer;
  16.     QCount: integer;
  17.   end;
  18.  
  19. Begin
  20.  Writeln(sizeof(THeader));
  21.  Writeln(sizeof(THeaderPacked));
  22.  readln;
  23. End.
Success #stdin #stdout 0.02s 208KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
24
19
https://ideone.com/KNAlY
language:
Pascal (fpc 3.0.4)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!