Generics constructor with parameter constraint?

Question

TMyBaseClass=class
  constructor(test:integer);
end;

TMyClass=class(TMyBaseClass);

TClass1=class()
  public
    FItem: T;
    pr         


        

Answer 1

You might consider giving the base class an explicit method for initialization instead of using the constructor:

TMyBaseClass = class
public
  procedure Initialize(test : Integer); virtual;
end;  

TMyClass = class(TMyBaseClass)
public
  procedure Initialize(test : Integer); override;
end;

procedure TClass1.Test;
begin
  FItem:= T.Create;
  T.Initialize(42);
end;

Of course this only works, if the base class and all subclasses are under your control.