testdelphinetconst.obs

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

unit testdelphinetconst;interface type ttemperatureconverter=class(TObject)public
const absolutezero=-273;end;type tmyclass=class const x=12;y=tmyclass.x+23;procedure
hello;private const s='A string constant';end;ttestconstfirst=class(TObject)const
some_const=1;private testint:int32;end;ttestconstfirst2=class(TObject)const some_const
=1;other_const=2;private testint:int32;end;implementation procedure tmyclass.hello
;begin end;end.