📄 testclassvarempty.obs
字号:
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -