tw30939b.pp 258 B

1234567891011121314151617181920212223
  1. { %NORUN }
  2. program tw30939a;
  3. {$MODE delphi}
  4. Type
  5. TGData<T> = record
  6. b: T
  7. end;
  8. TGWrapper<T> = record
  9. a: TGData<T>
  10. end;
  11. Function DoSomething<T>: TGWrapper<T>;
  12. Begin
  13. result.a.b := default(T)
  14. End;
  15. Begin
  16. DoSomething<LongInt>;
  17. End.