将枚举值分配给其他变量

Question

我在Delphi中有以下枚举:

type TChangingDataSetState=(Inserting=1,Editing,Deleting)
......
var
ChangingDSSsate:TChangingDataSetState;

在BeforePost事件中,我检查插入模式下的数据集是否为I

 ChangingDSState:=Inserting
else
 ChagingDSState:=Editing

假设数据集处于编辑模式,这意味着我的ChangingDSState var将被唤醒为2(编辑).现在我想知道如何使用该数字将其作为参数传递给过程

Answer 1

我假设你想要序数值而不是枚举值.你得到了ord().

所以,ord(ChagingDSState)是具有的值的整数表达2时ChagingDSState等于Editing.