littletest18.obs

格式化源码的最新板

unit littletest18;interface uses forms;type tfooform=class(TForm)public class function
foo:tfooform;end;implementation type tmonkey=real;class function tfooform.foo:tfooform
;begin result:=nil;end;end.