testclassvarempty.obs

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

unit testclassvarempty;interface type tmyclass1=class(TObject)private class var 
protected procedure someprotectedmethod;end;type tmyclass2=class(TObject)private 
procedure somemethod;protected class var public function somefunction:boolean;end
;type tmyclass3=class(TObject)private procedure somemethod;protected class var end
;type tmyclass4=class(TObject)private procedure somemethod;protected class var public
end;type tmyclass5=class(TObject)private ffoo:integer;procedure somemethod;protected
class var public property foo:integer read ffoo write ffoo;end;implementation procedure
tmyclass1.someprotectedmethod;begin end;function tmyclass2.somefunction:boolean;begin
result:=true;end;procedure tmyclass2.somemethod;begin end;procedure tmyclass3.somemethod
;begin end;procedure tmyclass4.somemethod;begin end;procedure tmyclass5.somemethod
;begin end;end.