Delphi基础教程：面向对象篇二

来源：作者：出处：巧巧读书 2006-01-20 进入讨论组

关键词：
delphi
window
无法访问

　　2.1.4 跳转语句　

　　Object Pascal的跳转语句有if和case两个。　　

　　2.1.4.1 if语句　　

　　if语句会计算一个表达式，并根据计算结果决定程序流程。在上文的例程中，根据ColorDialog.Execute的返回值，决定窗体的背景颜色。if保留字后跟随一个生成Boolean值True或False的表达式。一般用“=”作为关系运算符，比较产生一个布尔型值。当表达式为True时，执行then后的语句。否则执行else后的代码，if语句也可以不含else部分，表达式为False时自动跳到下一行程序。　

　　 if语句可以嵌套，当使用复合语句表达时，复合语句前后需加上begin…end。else保留字前不能加“；”，而且，编译器会将else语句视为属于最靠近的if语句。必要时，须使用begin…end保留字来强迫else部分属于某一级的if语句。　　

　　 2.1.4.2 case语句　　

　　 case语句适用于被判断的变量或属性是整形、字符型、枚举型或子界型时(LongInt除外)。用case语句进行逻辑跳转比编写复杂的if语句容易阅读，而且程序代码整形较快。　　

　　下面的例程显示一个使用case语句的窗体：　　

　　建立如下的事件处理过程：　

　　 procedure TForm1.Button1Click(Sender: TObject);
　　 var
　　 Number : Integer;
　　 begin
　　 Number := StrToInt(Edit1.Text);
　　 case Number of
　　 1,3,5,7,9: Label2.Caption := '奇数';
　　 0,2,4,6,8: Label2.Caption := '偶数';
　　10..100:
　　begin
　　Label2.Caption := '在10到100之间';
　　Form1.Color := clBlue;
　　end;
　　else
　　Label2.Caption := '大于100或为负数';
　　end;
　　 end;　　

　　执行程序，当Edit1部件接受到一个值，并按动“OK”按钮触发程序后，Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case语句也有可选择的else部分。case语句以end结尾。　　

　　2.1.5 循环语句　　

　　Object Pascal的循环语句有三种：repeat、while和for语句。　

　　2.1.5.1 repeat语句　

　　repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始，以until结束，其后跟随被判断的布尔表达式。参阅以下的例程：　

　　i := 0;
　　repeat
　i := i+1;
　　Writen(i);
　　until i=10;

　　当此语句被执行时，窗体的下方会出现1到10的数字。布尔表达式 i=10 (注意，与其他语言不同的是，“=”是关系运算符，而不能进行赋值操作)直到repeat..until程序段的结尾才会被计算，这意味着repeat语句至少会被执行一次。　　

　　2.1.5.2 while语句　　

　　while语句和repeat语句的不同之处是，它的布尔表达式在循环的开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真，循环被执行，否则会退出循环，执行while语句后面的程序。　　

　　下面的例程达到和上面的repeat例程达到同样的效果：　

　 i := 0;
　　 while i<10 do
　　 begin
　 i := i+1;
writeln(i);
　　 end;

巧巧读书:http://www.qqread.com/delphi/q722232400.html