testgenerics2.obs

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

unit testgenerics2;interface uses sysutils;type tgenerictype<anytype1,anytype2> 
=class fdata:anytype;function getdata:anytype;procedure setdata(value:anytype);property
data:anytype read getdata write setdata;end;implementation function tgenerictype<
anytype1,anytype2>.getdata:anytype;begin result:=fdata;end;procedure tgenerictype
<anytype1,anytype2>.setdata(value:anytype);begin fdata:=value;end;type tgenerictypeint
=tgenerictype<integer,integer>;var i:tgenerictypeint;initialization try with tgenerictype
<integer,integer>.create do data:=100;i:=tgenerictypeint.create;i.data:=100;writeln
(i.data);readln;except on e:exception do writeln(e.classname,': ',e.message);end;
end.