類型繼承

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元素的枚舉指數當前代碼。