testautomated.obs

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

unit testautomated;interface type tpublicandautomated=class public function publicmethod
:boolean;automated function auomatedmethod:wordbool;dispid 1;end;tautomatedonly=class
automated function auomatedmethod:wordbool;dispid 1;end;implementation function tpublicandautomated
.auomatedmethod:wordbool;begin result:=true;end;function tpublicandautomated.publicmethod
:boolean;begin result:=true;end;function tautomatedonly.auomatedmethod:wordbool;begin
result:=true;end;end.