testdelphinetrecordprocs.obs

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

unit testdelphinetrecordprocs;interface type tsomerecord=record i,j,k,l:integer;
function sum:integer;procedure clear;constructor create(ivalue:integer);end;toprecord
=record i:integer;s:string;class operator add(a,b:toprecord):toprecord;class operator
equal(a,b:toprecord):boolean;class operator implicit(a:toprecord):integer;class operator
implicit(a:integer):toprecord;end;tpropertyrecord=record private fi,fj:integer;function
gettwicei:integer;function gettwicej:integer;procedure settwicei(const value:integer
);public property i:integer read fi write fi;property twicei:integer read gettwicei
write settwicei;property twicej:integer read gettwicej;end;implementation procedure
tsomerecord.clear;begin i:=0;j:=0;k:=0;l:=0;end;constructor tsomerecord.create(ivalue
:integer);begin clear;i:=ivalue;end;function tsomerecord.sum:integer;begin result
:=i+j+k+l;end;class operator toprecord.add(a,b:toprecord):toprecord;begin result.
i:=a.i+b.i;result.s:=a.s+b.s;end;class operator toprecord.equal(a,b:toprecord):boolean
;begin result:=(a.i=b.i)and(a.s=b.s);end;class operator toprecord.implicit(a:integer
):toprecord;begin result.i:=a;result.s:='';end;class operator toprecord.implicit(
a:toprecord):integer;begin result:=a.i;end;function tpropertyrecord.gettwicei:integer
;begin result:=fi*2;end;function tpropertyrecord.gettwicej:integer;begin result:=
fj*2;end;procedure tpropertyrecord.settwicei(const value:integer);begin fi:=value
div 2;end;end.