testdelphinetrecordclassvars.obs

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

unit testdelphinetrecordclassvars;interface uses sysutils,math;type tafish=record
class var astring:string;private class var scratch:double;public class operator add
(avalue:tafish):tafish;class var foofactor:double;end;afishclass=class class var 
astring:string;private class var scratch:double;public class operator add(avalue:
tafish):tafish;class var foofactor:double;end;implementation class operator tafish
.add(avalue:tafish):tafish;begin result:=avalue;end;class operator afishclass.add
(avalue:tafish):tafish;begin result:=avalue;end;end.