Case语句的用法 Case语句的用法,麻烦给个示范,谢谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 case I of 1..5: Caption := 'Low'; 6..9: Caption := 'High'; 0, 10..99: Caption := 'Out of range';else Caption := '';end; case 问题点数 of 0:没分,楼主太小气; 1..9:分太少; 10..19:分少; 20..49:凑合; 50..100:还可以; 101..300:分比较多;end; 看一些书基础知识书吧。复杂一点:case I of 1..5: begin ... end; 6..9: begin ... end; else begin ... end;end; case就是if的简化版本,我就这么多,例子楼上己写出来了! rave报表问题 Delphi中如何在配对的begin,end之间切换 ★★★★★第三十四期:CSDN论坛秀-Delphi版-本期作秀:xixuemao 可以向工程中添加一个Unit,那么如何写一个新类呢?是否象Unit一样添加?他们之间有什么区别?谢了! 【急】FastReport 中特殊字符显示问题??? 项目经验交流(CODE) 菜鸟问题:怎样保存edit的值? 如何制作浮动面板? delphi&oracle的简单问题 ado+dbgrid 怪事啊.. 无法给frame上的edit传递数据!!!!!!!!!!! 討論:如何写出易维护和易扩展的程序?
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
Caption := '';
end;
0:没分,楼主太小气;
1..9:分太少;
10..19:分少;
20..49:凑合;
50..100:还可以;
101..300:分比较多;
end;
case I of
1..5: begin
...
end;
6..9: begin
...
end;
else begin
...
end;
end;