testgenericconstructorstatic.obs

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

program testgenericconstructeurstatic;{$APPTYPE CONSOLE}uses sysutils;type econtrainteargumentexception
=class(ArgumentException);maclasse<t>=class unchamp:t;s:string;constructor create
;class constructor createclass;end;constructor maclasse<t>.create;begin inherited
;s:='Initialisation';writeln(#9+#9+#9+'Appel du constructeur d''instance',self.classname
,'.Create');end;class constructor maclasse<t>.createclass;var unentier:integer;vargeneric
:t;begin writeln;writeln(#9+#9+'Appel du constructeur de classe MaClasse.CreateClass<'
,typeof(t),'>');vargeneric:=default(t);unentier:=10;if(assigned(tobject(vargeneric
))=true)and(tobject(unentier)is t)then raise econtrainteargumentexception.create(
'L''utilisation du type Integer n''est pas autoris