我聲明了以下枚舉類(lèi)型，我希望第一個(gè)成員的序數(shù)值為1（一個(gè)），而不是通常的0（零）： type TMyEnum = ( meFirstValue = 1, meSecondValue, meThirdValue );如果我調(diào)用TypeInfo（），例如，作為對(duì)GetEnumName（）的調(diào)用的一部分，則會(huì)出現(xiàn)編譯器錯(cuò)誤： GetEnumName(TypeInfo(TMyEnum), Ord(aValue));錯(cuò)誤：“ E2134：類(lèi)型'TMyEnum'沒(méi)有typeinfo”為什么是這樣？我知道，只有在啟用$ M編譯器選項(xiàng)或（從某些類(lèi)（例如TPersistent）派生）進(jìn)行編譯的情況下，類(lèi)才具有typeinfo ，但我認(rèn)為為枚舉類(lèi)型使用typeinfo并不存在任何特殊條件。
3 回答
交互式愛(ài)情
TA貢獻(xiàn)1712條經(jīng)驗(yàn) 獲得超3個(gè)贊
不連續(xù)的枚舉，以及不是從零開(kāi)始的枚舉，都沒(méi)有typeinfo。要實(shí)現(xiàn)typeinfo tkEnumeration，由于向后兼容性問(wèn)題，它的格式必須與現(xiàn)有格式不同。
我考慮過(guò)tkDiscontiguousEnumeration為Delphi 2010 實(shí)現(xiàn)一個(gè)（或可能命名更好的成員），但是考慮到它們的相對(duì)稀缺性以及枚舉的困難，收益似乎很小-您如何有效地編碼范圍？有些編碼在某些情況下更好，而在另一些情況下則更糟。
烙印99
TA貢獻(xiàn)1829條經(jīng)驗(yàn) 獲得超13個(gè)贊
當(dāng)您想將枚舉轉(zhuǎn)換為特定值（并返回）時(shí)，我通常使用每個(gè)枚舉值所需的值創(chuàng)建一個(gè)數(shù)組const：
Const MyEnumValues: array[TMyEnum] of integer = (1,2,5);
這樣，當(dāng)枚舉擴(kuò)展時(shí)，您會(huì)得到一個(gè)編譯器錯(cuò)誤，指出您缺少數(shù)組值。
請(qǐng)注意，更改枚舉順序時(shí)，必須相應(yīng)更改值。
要獲取枚舉值的“值”，只需編寫(xiě)：
Value := MyEnumValues[myenum];
為了獲得基于“值”的枚舉值，只需循環(huán)MyEnumValues的值即可：
Function GetEnumByValue(value:integer): TMyEnum;
Var
myenum: TMyEnum;
Begin
For myenum = low(TMyEnum) to high(TMyEnum) do
If MyEnumValues[myenum] = value then
exit(myenum);
Raise exception.create(‘invalid value for tmyenum’);
End;
- 3 回答
- 0 關(guān)注
- 689 瀏覽
添加回答
舉報(bào)
0/150
提交
取消