littletest19.obs

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

unit littletest19;interface type tsoy=class protected function getklingon:integer
;procedure setklingon(const value:integer);property klingon:integer read getklingon
write setklingon;end;tenterprise=class(TSoy)published property klingon read getklingon
write setklingon;end;implementation function tsoy.getklingon:integer;begin result
:=42;end;procedure tsoy.setklingon(const value:integer);begin end;end.