ugeneric91a.pp 440 B

1234567891011121314151617181920212223242526272829303132333435
  1. unit ugeneric91a;
  2. {$mode objfpc}{$H+}
  3. interface
  4. type
  5. generic TSomeGeneric1<T> = class
  6. class procedure Test;
  7. end;
  8. TSomeClass1 = class
  9. class procedure Test;
  10. end;
  11. implementation
  12. uses
  13. ugeneric91b;
  14. type
  15. TSomeGeneric2LongInt = specialize TSomeGeneric2<LongInt>;
  16. class procedure TSomeClass1.Test;
  17. begin
  18. TSomeGeneric2LongInt.Test;
  19. end;
  20. class procedure TSomeGeneric1.Test;
  21. begin
  22. Writeln(Self.ClassName);
  23. end;
  24. end.