Type Ableitung oder Parametereinschraenkung???

[Uwe Raabe]

So vielleicht?

Delphi-Quellcode:

type
  TType = (TT1, TT2, TT3, TT4, TT5, TT6, TT7);
  TTypeNormal = TT1 .. TT6; // Teilmenge von TType
  TTypeSpezial = TT5 .. TT7; // Teilmenge von TType

  TNormal = class(TObject)
  public
    FType: TType;
    Constructor Create(lType: TTypeNormal); // nur TTypeNormal zulaessig
  end;

  TSpezial = class(TNormal)
  public
    Constructor Create(lType: TTypeSpezial); // nur TTypeSpezial zulaessig
  end;

Constructor TNormal.Create(lType: TTypeNormal); // nur TTypeNormal zulaessig
begin

end;

Constructor TSpezial.Create(lType: TTypeSpezial); // nur TTypeSpezial zulaessig
begin

end;