testautomated.obs

格式化源码的最新板

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.