case语句的表达式中如何用实型进行判断? case MyColor of Red: X := 1; Green: X := 2; Blue: X := 3; Yellow, Orange, Black: X := 0;end;I真的都是有序类型吗?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在做一个财务软件,有一个判断税金(Currency类型)的计算字段,想用case方便一些。不过现在改用if了。没问题了,多谢大家。但还是想知道用case是不是可以判断实型。 想知道用case是不是可以判断实型。 不可以不过可以转换成对应的整型再判断(如果有规律可循)例如,实型的间隔是固定的value=0-2.0 (0 <= value < 2.0)2.0-4.04.0-6.0分别对应不同的情况:case trunc(value/2.0) of 0: ...; //0-2.0 1: ...; //2.0-4.0 2: ...; //4.0-6.0end Case when ....then ....else case ..of . then ....end end 不可以。但是你可以用case( integer(value) ) if ... thenelse if ... thenelse if ... thenelse.... 给dbgrid赋值 应用服务器启动多个实例 Self 什么意思 用途很大\吗? 一个关于dephi操作数据库的问题。 这个问题有点难 firetoucher的善分帖二(一个三角的in) 开放--短信群发软件源代码!!! 关于Delphi的文本框 Tobjectlist类在哪个单元里Delphi2010的Generics.Collections里居然没有! 请问如何用Delphi编一个小程序,用来把一个指定的用户ODBC数据源(比如叫mysource)给删掉?谢谢! 急!!!!!!!!!! 本人现在有QQ号码n个(n>1000),现在放在我的信箱中,而且每天都在增加!!!
例如,实型的间隔是固定的
value=
0-2.0 (0 <= value < 2.0)
2.0-4.0
4.0-6.0
分别对应不同的情况:case trunc(value/2.0) of
0: ...; //0-2.0
1: ...; //2.0-4.0
2: ...; //4.0-6.0
end
case ..of . then ....end
end
但是你可以用case( integer(value) )
else if ... then
else if ... then
else
....