将枚举值分配给其他变量

Question

我在Delphi中有以下枚举：

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

在BeforePost事件中，我检查数据集是否处于插入模式，然后是

 ChangingDSState:=Inserting
else
 ChagingDSState:=Editing

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

Answer 1

我假设您需要序数值而不是枚举值。你可以通过ord()得到它。

因此，当ord(ChagingDSState)等于2时，ChagingDSState是一个整数表达式，其值为Editing。