testgenericinheritance.out

格式化源码的最新板

program TestGenericInheritahnce;

{$APPTYPE CONSOLE}

{ AFS December 2007 

  This code compiles, but is not semantically meaningfull.
  It is test cases for the code-formating utility

  Test new generics syntax - code from TridenT
}

uses
  SysUtils;

type

  TTest = class
    FData: integer;
  end;
  //Surcharge g閚閞ique
  TTest<I> = class
    FData: I;
  end;

  {La surcharge bas閑 sur une contrainte est impossible.
  TTest<I:constructor>=Class //E2037 La d閏laration de 'TTest<I>' diff鑢e de la d閏laration pr閏閐ente
   FData: I;
  End;
  }

  TTest<I,S> = class
    FData: I;
    Fitem: S;
  end;

  //Surcharge g閚閞ique