我在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;