tgeneric87.pp 202 B

12345678910111213141516
  1. program tgeneric87;
  2. {$mode objfpc}
  3. type
  4. generic TTest<T> = record
  5. end;
  6. const
  7. TestLongIntNil: ^specialize TTest<LongInt> = Nil;
  8. TestBooleanNil: ^specialize TTest<Boolean> = Nil;
  9. begin
  10. end.