testtpobjects.obs

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

unit testtpobjects;interface type tfoo=object end;tbar=object private protected 
public end;tbaz=object li1:integer;private li2:integer;protected li3:integer;public
li4:integer;end;tfish=object(tbar)procedure swim;end;implementation procedure tfish
.swim;begin end;end.