littletest26.obs

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

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.