testgenericconstructorstatic.out

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

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