Delphi盒子-问答悬赏

D哥： case 是不支持浮点型的

方法1 浮点型变成整形,例如0.05*100;

方法2 if else

Delphi爱好者： CASE必須是有序类型，如：整型，字符型，枚举型。



1.用xx:TStringList,把小数添加进去，再用case xx.indexof() of

2.看每组小数有没有唯－的數字，有的话(比如i位是唯一的) case str[i] of

3.用枚举型，把所有数据声明为一个枚举类型的值

Leo： 
小数的话还是建议使用if判断比较方便，改用case还得转换成整数，没有必要。
如果与数据库有关，可以在数据库中直接判断
case 字段名 when 0.01 then 结果1 when 0.02 结果2 …… when 0.N then 结果N end

hero：  当需要多个if嵌套判断并且判断的数据为枚举或者整数时非常方便如下
case i of
1:begin
	end;
2..9:begin
	end;
else begin
	end;
end;