值分配给其他变量

Question

我曾在德尔福以下枚举：

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。