littletest26.out

来自「格式化源码的最新板」· OUT 代码 · 共 28 行

unit littletest26;

interface

type
  tfoorecord = packed record
    soy:      integer;
    monkey:   integer;
    shatner:  integer;
    mcflurry: integer;
  end;

type
  apackedarray = packed array[0..4] of integer;

type
  apackedclass = packed class
    soy:    integer;
    monkey: integer;
  end;

const
  myfoorecord: tfoorecord = (soy: 0; monkey: 0; shatner: 0; );

implementation

end.