testdelphinetclassvar.obs

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

unit testdelphinetclassvar;interface type teomreport=class(TObject)private var rtop20clrefer
,rpstoftotalcr,rtop20sl,rpstoftotalsl,rtop20ca,rpstoftotalca:real;procedure fetchtop20currentaccount
;public procedure transfertop20currentaccount;end;type tfooreport=class(TObject)private
var foo,bar:string;fish,boo:integer;function wibble:integer;var goo,gar,gib:integer
;var soo,dar:integer;thing:string;end;tfooclass=class var a1:integer;private var 
b2:string;b3:integer;protected var c3,c4,c5:boolean;public var d6:tobject;end;implementation
procedure teomreport.fetchtop20currentaccount;begin end;procedure teomreport.transfertop20currentaccount
;begin end;function tfooreport.wibble:integer;begin result:=3;end;end.