tw19452a.pp 378 B

123456789101112131415161718192021222324
  1. { %norun }
  2. {$mode objfpc}
  3. type
  4. TMyObject = class;
  5. TArr = array of TMyObject;
  6. TMyObject = class
  7. public
  8. constructor Create(ar: array of TMyObject); overload;
  9. constructor Create(ar: TArr); overload;
  10. end;
  11. constructor TMyObject.Create(ar: array of TMyObject);
  12. begin
  13. end;
  14. constructor TMyObject.Create(ar: Tarr);
  15. begin
  16. end;
  17. begin
  18. TMyObject.Create([nil]);
  19. end.