3
3h
Unregistered / Unconfirmed
GUEST, unregistred user!
一个集合类型定义如下:
<font face="Courier New" size="2" color="#800000">
type
TTeleNewFunction = Set of (
CallerNoDisplay,
HotCall,
CallChange,
Colck,
...
);
</font>
变量定义:
<font face="Courier New" size="2" color="#800000">
Var
NewFun : TTeleNewFunction;
N: Integer;
</font>
代码如下:
<font face="Courier New" size="2" color="#800000">
begin
...
NewFun := [];
If ... then
NewFun := NewFun + [Colck];
...
N := Integer(NewFun); // 这里出错,类型不兼容
...
end;
</font>
用整数的N是无奈的选择,因为它要存储在数据库中,
如果分开就要用到多个字段,麻烦。
但是新功能却是许多种。所以我想用集合。它表达清晰而且使用方便。
当然用INT然后进行多个AND之类也行,不过不愿意。
明明知道DELPHI中集合用类似整数的方式进行存储,例如可以
NewFun := 0;
但竟然无法让 NewFun 给整型变量赋值。
特请教解决方法。
<font face="Courier New" size="2" color="#800000">
type
TTeleNewFunction = Set of (
CallerNoDisplay,
HotCall,
CallChange,
Colck,
...
);
</font>
变量定义:
<font face="Courier New" size="2" color="#800000">
Var
NewFun : TTeleNewFunction;
N: Integer;
</font>
代码如下:
<font face="Courier New" size="2" color="#800000">
begin
...
NewFun := [];
If ... then
NewFun := NewFun + [Colck];
...
N := Integer(NewFun); // 这里出错,类型不兼容
...
end;
</font>
用整数的N是无奈的选择,因为它要存储在数据库中,
如果分开就要用到多个字段,麻烦。
但是新功能却是许多种。所以我想用集合。它表达清晰而且使用方便。
当然用INT然后进行多个AND之类也行,不过不愿意。
明明知道DELPHI中集合用类似整数的方式进行存储,例如可以
NewFun := 0;
但竟然无法让 NewFun 给整型变量赋值。
特请教解决方法。