testgenericheritage.out

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

program TestGenericHeritage;

{$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
  //Classe de base
  TClassDeBase = class
    FData: integer;
  end;

  //Classe g閚閞ique
  TGenerique<I> = class
    FData: I;
  end;

  //Classe de base d閞iv閑 d'un type construit ouvert
  {TClassDeBaseDeriveDeGenerique=Class(TGenerique<I>) //E2003 Identificateur non d閏lar