testdelphinetnestedtype.obs

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

unit testdelphinetnestedtype;interface type touterclass=class private myfield:integer
;public type tinnerclass=class public myinnerfield:integer;procedure innerproc;end
;procedure outerproc;end;implementation procedure touterclass.tinnerclass.innerproc
;begin end;procedure touterclass.outerproc;begin end;end.