类型继承

Question

在一类单位我有型

type 
    TFolderType  = (
         dirRoot, 
         dirDatabase, 
         dirDocs, 
         dirConfig, 
         dirBackup, 
         dirDown, 
         dirUp, 
         dirScripts, 
         dirLicense, 
         dirImages, 
         dirMail, 
         dirProjects, 
         dirInput, 
         dirOutput 
        ); 

现在我想从另一个类继承这个类，并添加一些额外的元素 的是，在任何可能的方式或我能做到这一点的另一way 我曾想过创建一个包含所有元素的类作为属性，但我不确定这是否是要走的路线

Answer 1

这不是类，而是它是枚举类型。您不能对枚举类型使用继承。您将需要创建一个新的枚举类型。或者可能使用枚举类型以外的其他方法来解决问题。

Answer 2

像David说，它不是一个类。

作为替代方案，你可以宣布你的更大的枚举，如：

type 
    TThingType = (dirThingA, dirRoot, dirDataBase, ..., dirOutput, dirThingY, dirThingZ); 

然后声明您TFolderType为：

type 
    TFolderType = dirRoot..dirOutput; 

有些担忧：

• 一个文件夹 '需要'是类型的东西
• 前缀dir“需求”是有意义的两个事情和文件夹
需要重写，或添加所有“新”的元素在后面
• 是假定TFolderType元素的枚举指数当前代码。