testgenerictypenullable.out

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

program TestGenericTypeNullable;

{
Test code from Trident for generics
}

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  // System.Nullable est une structure
  // public struct Nullable<T> where T : struct
  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;

  //Avec Procedure TTestNullable<T>.Tester(Arg:System.Nullable<T>; Valeur:T); on ne peut assigner Null