testlocaltypes.obs

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

unit testlocaltypes;interface implementation uses dialogs;procedure fred;type tfred
=integer;const fred='hello wold';var li:tfred;begin showmessage('Fred was here');
end;procedure jim;type tgoon=(nedseagoon,eccles,bluebottle,henrycrun,bloodnok);tgoons
=set of tgoon;ptgoon=^tgoon;pgoonproc=function:tgoon of object;const protagonist:
tgoon=nedseagoon;begin showmessage('Allo Jiim');end;procedure classlesssociety;type
tbub=boolean;tfredsnumbers=42..122;var liwhatfredhas:tfredsnumbers;begin end;procedure
hasrecords;type tfoo=record libar:integer;libaz:string;end;tfoo2=record bar:integer
;case spon:boolean of true:(baz:pchar);false:(fred:integer);end;begin end;end.