testgenericoperatoris.obs

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

program testgenericoperatoris;{$APPTYPE CONSOLE}uses sysutils,classes;type maclasse
<t>=class unchamp:t;procedure test<x>;procedure test2<x>;procedure test3<x:constructor
>;end;nullinteger=system.nullable<integer>;procedure maclasse<t>.test<x>;var variable
:x;begin writeln;write(#9+'Le test sur X<',typeof(x),'> is T<',typeof(t),'> est '
);if tobject(variable)is t then writeln('Vrai')else writeln('Faux');if assigned(tobject
(variable))then writeln(#9+'assigned(Variable) =Vrai')else writeln(#9+'assigned(Variable)=Faux'
);end;procedure maclasse<t>.test2<x>;var variable:x;begin if assigned(tobject(variable
))then variable:=default(x);writeln;write(#9+'Le test sur X<',typeof(x),'> is T<'
,typeof(t),'> est ');if tobject(variable)is t then writeln('Vrai')else writeln('Faux'
);end;procedure maclasse<t>.test3<x>;var variable:x;begin writeln;write(#9+'Le test sur X<'
,typeof(x),'> is T<',typeof(t),'> est ');variable:=x.create;if tobject(variable)is
t then writeln('Vrai')else writeln('Faux');if assigned(tobject(variable))then writeln
(#9+'assigned(Variable) =Vrai')else writeln(#9+'assigned(Variable)=Faux');end;procedure
test(resultat:boolean);begin if resultat then writeln('Vrai')else writeln('Faux')
;end;var classe1:maclasse<tobject>;classe2:maclasse<system.nullable<integer>>;classe3
:maclasse<integer>;varnull:nullinteger;objet:tobject;int:integer;begin try writeln
('Test pour la variable varNull = null');varnull:=default(system.nullable<integer
>);test(varnull is nullinteger);varnull:=10;test(varnull is nullinteger);writeln(
'Test pour la variable Objet