[怖客+top]delphi编程培训教程4：delphi条件语句

怖客delphi编程培训教程4：delphi条件语句

首发：怖客官方网站：http://www.bkhack.com

      TOP技术社区：http://www.topjishu.com

by:lxsky    QQ:86717375

delphi条件语句有if语句，case语句.请听我慢慢道来...

一：【if语句】

 对于if-then语句，仅当条件满足时语句才会执行；而对于if-then-else型语句，则会在两条语句中选择一条语句来执行.条件语句使用布尔【bool】表达式建立
，下面我们通过一个简单的delphi例子来示范如何编写条件语句.

1：创建一个应用程序，在form上放置一个复选框（checkbox1）和一个按钮（button1）.

2:双击按钮为其onclick事件添加响应代码.如下：

procedure tform1.button1click(sender:tobject);
begin
 if checkbox1.checked=true  then
   showmessage('复选框已经被选择！');
end;

好，现在我们运行程序，点菜单选项"run"-->"run"，当我们点击按钮后，

如果复选框中有复选标记，这个程序就会显示一条消息，内容为“复选框已经被选择！”

如果复选框没有选中，程序会没有任何提示.

3：为了能够让程序在没有选中复选框的情况下也会给出提示信息，我们可以使用if-then-else语句。如下：

procedure tform1.button1click(sender:tobject);
begin
 if checkbox1.checked=true  then
   showmessage('复选框已经被选择！');
 else
   showmessage('复选框没有被选择！')；
end;

不要觉得if-then-else语句很简单，delphi编程中它可以嵌套另一个或多个if语句.很多大程序，复杂的程序里面都使用了大量的条件语句！

※：在代码的书写过程中，特别是写条件语句，需要把代码规范化！层次分明.
比如时间中含有3个if语句，我们可以这样：
if a=b  then
   if a>c then
       if a>d then
          showmessage('a>d')
       else
          showmessage('a<=d')
   else
       showmessage('a<=c')
else  
    showmessage('a<>b')

这样看起来是不是就更容易理解了？呵呵.在代码书写中，【代码书写规范】很重要，大家下来可以搜搜这方面的文章.

二：case语句

case语句没有if用的时候多，但是case语句在有些情况下比if语句更适合使用，效率更高.

case语句后面可以带一个else语句，当没有一个结果与选择器的值一致时，就执行else语句.下面来看一个实例：

procedure tform1.button1click(sender:tobject);
var
 name:string;
begin
 name:=edit1.text;
 case name of
   zhangsan:showmessage('这是张三');
 case name of
   lisi:showmessage('这是李四');
 case name of
   wangmazi:showmessage('这是王麻子');
 else
   showmessage('啊哈哈，无名无姓！');
 end;
end;

上面的例子还可以吧！嘿嘿.

程序运行后，点击按钮一，

如果edit控件里面输入的值为“zhangsan”，就弹出信息框显示'这是张三'

如果edit控件里面输入的值为“lisi”，就弹出信息框显示'这是李四'

........

如果不是zhangsan，不是lisi，也不是wangmazi，就弹出信息框显示'啊哈哈，无名无姓！'.

呵呵，大家是否已经理解？