枚举继承delphi

Question

我希望在另一个中继承一个enumaration:

例如:

Type TMyTypeKind = (TTypeKind, enBoolean, enPath);

Answer 1

类似的东西可能以相反的顺序.如果您知道所有可能的值,请将其定义为基类型并声明其子类型.子范围将与基本类型相互兼容并相互兼容.它可能是也可能不是福利.

type
 TEnumAll = (enFirst, enSecond, enThird, enFourth, enFifth);
 TEnumLower = enFirst..enThird;
 TEnumMore = enFirst..enFourth;
procedure TForm1.Test1;
var
  All: TEnumAll;
  Lower: TEnumLower;
begin
  for All := Low(TEnumAll) to High(TEnumAll) do begin
   Lower := All;
  end;
  for Lower := Low(TEnumLower) to High(TEnumLower) do begin
    All := Lower;
  end;
end;

Answer 2

你不能.编译器不知道如何解释这个.来自维基:

枚举类型通过简单地列出表示这些值的标识符来定义有序值集.这些价值观没有内在意义.