testgenerictypenullable.obs

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

program testgenerictypenullable;{$APPTYPE CONSOLE}uses sysutils;type ttestnullable
<t:record>=class procedure inverser(arg:system.nullable<t>;valeur:system.nullable
<t>);end;monrecord<t>=record data:t;end;monrecordint=record data:integer;constructor
create(value:integer);class operator implicit(a:integer):monrecordint;end;couleurs
=(noir,rouge,vert);constructor monrecordint.create(value:integer);begin data:=value
;end;class operator monrecordint.implicit(a:integer):monrecordint;begin result.data
:=a;end;procedure ttestnullable<t>.inverser(arg:system.nullable<t>;valeur:system.
nullable<t>);begin try writeln('Valeur du type nullable =',tobject(arg.value));arg
:=default(nullable<t>);except on e:invalidoperationexception do begin writeln('La variable est