结构化程序设计2 – 零基础入门学习Delphi09
结构化程序设计2
让编程改变世界
Change the world by program
多分支Case语句
If ( a = 'F' ) Then
ShowMessage('F');
If ( a = 'i' ) Then
ShowMessage('i');
If ( a = 's' ) Then
ShowMessage('s');
If ( a = 'h' ) Then
ShowMessage('h');
If ( a = 'C' ) Then
ShowMessage('C');
// 大家对这段代码有何感想？！
当分支很多时，用IF语句来实现，需要嵌套很多层，写书不但烦琐，而且也容易出错。
为实现多分支，Delphi提供了Case语句，该语句又称多分支语句，其语法格式与功能如下。
Case （表达式） of
值1: 语句1;
值2: 语句2;
…
值n: 语句n;
Else //这里的Else之前可以有分号
语句n+1;
end;
[功能]：根据变量的值，决定执行某个分支语句。
[说明]：执行Case语句时，首先计算“表达式”的值，如果是“值1”到“值n”之间的某个值，则执行该值后面对应的语句，否则执行Else 后面的语句，执行一个分支后将跳转到end;后面的语句执行。
[注意]：
（1）“表达式”的值必须是顺序类型，即整型、字符型、布尔型、子界型和枚举型。
（2）“值1”到“值n”应该是“表达式”可能出现的值，它们还应该各不相同。如果“表达式”的某几个值对应的执行语句是相同的，那么可以将这几个值写在同一行上，以逗号分隔。
例如，当变量等于值1和值2时，都执行语句1，那么可以这样写：
Case （表达式） of
值1,值2: 语句1;
…… …… ……
（3）语句可以是简单语句，也可以是复合语句。
（4）Else 语句可以省略，省略时如果“表达式”的值与“值1”～“值n”中的任何一个值均不相等，则不执行任何分支，直接跳转到end后面的语句执行。
（5）Case语句可以用IF语句来实现，但IF语句不一定能用Case语句实现（请理解）。
多分支Case语句
实践时间：霓虹灯程序V2.0
阶段性上机实践（小结）
阶段性实践主要是作为本系列视频教程的每个阶段的总结和提高，该实践课题将针对这一阶段学习的所有知识通过一些稍微复杂的实例给大家展示出来。
实践是检验真理的唯一标准！
鱼C加密程序V1.0版本、V2.0版本
鱼C屏幕保护程序V1.0版本、V2.0版本
视频下载
技术, IT技术, Delphi, 视频教程
风险提示及免责条款
市场有风险，投资需谨慎。本文不构成个人投资建议，也未考虑到个别用户特殊的投资目标、财务状况或需要。用户应考虑本文中的任何意见、观点或结论是否符合其特定状况。据此投资，责任自负。
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！
