testgenerictypenullable.out

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

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