在Delphi中枚举可能的设置值

发布时间：2020-12-15 04:31:17 所属栏目：大数据来源：网络整理

导读：我在Delphi中有一个计算算法,有许多不同的选项,我需要尝试每个选项组合来找到最佳解决方案. TMyOption = (option1,option2,option3,option4);TMyOptions = set of TMyOption; 我想知道使用Integer循环枚举它们： for EnumerationInteger := 0 to 15 do begin

我在Delphi中有一个计算算法,有许多不同的选项,我需要尝试每个选项组合来找到最佳解决方案.

TMyOption = (option1,option2,option3,option4);
TMyOptions = set of TMyOption;

我想知道使用Integer循环枚举它们：

for EnumerationInteger := 0 to 15 do begin
    Options := TMyOptions(EnumerationInteger);
end;

这不编译.我想知道的是,是否有任何相当简单的方法可以从Integer转换为Set(Web上的大多数问题都试图从另一个方向转换,从Set到Integer),如果是这样,它是什么？

另一种可能性是将Integer用作位域：

C_Option1 = 1;
C_Option2 = 2;
C_Option3 = 4;
C_Option4 = 8;

然后按位测试成员资格：

if (Options and C_Option2) > 0 then begin
    ...
end;

我已经尝试了这个,并且它可以工作,但感觉就像使用集合会更自然并且更好地使用类型系统(即使我要在所述类型系统外部枚举集合).

有没有比枚举基础整数表示更好/更安全地枚举所有可能的集合组合？

笔记：

>我知道理论上不保证集合的整数值(尽管如果你不使用枚举编号,我怀疑它们在实践中).
>可能有四个以上的选项(是的,我知道它会以指数方式增长,如果有太多选项,算法可能会永远占用).

解决方法

尝试

var EnumerationByte: Byte;
...
for EnumerationByte := 0 to 15 do begin
    Options := TMyOptions(EnumerationByte);
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!