Type Ableitung oder Parametereinschraenkung???

[bernau]

Ich arbeite bei so etwas gerne mit Sets.

Übergeben wird dann mit dem Set die Teimenge.

Delphi-Quellcode:

type
  TType = (TT1, TT2, TT3, TT4, TT5, TT6, TT7);
  TTypeSet = set of TType;

const
  TTypeNormal = [TT1 .. TT6];
  TTypeSpezial = [TT5 .. TT7];