littletest11.obs

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

unit littletest11;interface uses classes;const foo:procedure=nil;bar:function:boolean
of object=nil;fish:procedure(const monkey:string;const shatner:array of tobject;soy
:tcomponentclass)=nil;implementation procedure fooproc;var procvar2:procedure(arg1
:integer);begin end;end.