delphi高级软件开发培训一课程.pptx

第3节Delphi语言基础二本节主要内容：程序语句过程与函数面向对象的编程

语句2.case语句当选择的条件有多种可能性时，使用case语句更为合适。case语句包括用来选值的表达式、可能值序列或一个取值范围。这些值必须唯一，而且应属于有序类型。其语法如下：case选择表达式of值1:语句1;值2:语句2;...值n:语句n;End在Case语句的末尾可以使用关键字else，当没有一个可选值与表达式匹配时，执行else后的语句。

语句语句如下：case选择表达式of值1:语句1;值2:语句2;...值n:语句n;else语句n+1;end;例如：caseMyCharof?+:Text:=Plussign;?-:Text:=Minussign;?*,/:Text:=Multiplicationordivision;?

语句0..9:Text:=Number;?a..z:Text:=Lowercasecharacter;?A..Z:Text:=Uppercasecharacter;else?Text:=Unknowncharacter;end;循环控制语句循环语句重复执行循环体（即语句或语句块），并根据设定的条件判断何时退出循环。delphi提供了三种循环语句：while语句、repeat语句、for语句。1.while语句while的语法格式如下：while条件表达式do循环体；

语句【例2-2】编程计算1+2+3+…+99+100的值；【实现步骤】(1)新建应用程序(2)定制窗体图2-3设计窗体界面

语句组件名属性属性值Label1Caption1+2+3+…+99+100=Button1Caption计算表2-11各组件属性设置(3)编写代码(4)运行程序图2-4运行结果

程序代码：vari,s:integer; s:=0;i:=1;whilei=100dobegins:=s+i;i:=i+1;end;label1.Caption:=label1.Caption+inttostr(s);

语句2.repeat语句repeat语句是先执行循环体，然后判断条件，根据条件决定是否继续循环，执行循环体的最少次数为1。语法如下：repeat循环体until条件表达式;【例2-3】编写程序求两个正整数的最大公约数。分析：我们使用“辗转相除法”求最大公约数，方法如下：以大数m作被除数，小数n作除数，相除得余数为r；如果r不为0则将n赋给m，r赋给n，相除得到新的r，反复该过程直到r=0。最后的m就是最大公约数。

语句【实现步骤】(1)新建应用程序(2)定制窗体图2-5设计窗体界面

语句组件名属性属性值Label1Caption请输入第一个整数Label2Caption请输入第二个整数Label3Caption显示结果Edit1TextEdit2TextButton1Caption开始求最大公约数(3)编写代码(4)运行程序表2-12各组件属性设置

语句图2-6运行结果

代码：vara,b,r:integer;a:=strtoint(edit1.Text);b:=strtoint(edit2.Text);ifabthenbeginr:=a;a:=b;b:=r;end;repeatr:=amodb;a:=b;b:=r;until(r=0);label1.Caption:=inttostr(a);

语句3.for语句在循环次数已知或可计算的场合，用for语句来实现循环比较简便。for语句分为递增式和递减式两种形式。语法格式：for循环变量=初值to终值do循环体；或for循环变量=初值downto终值do循环体；（1）循环变量为循环计数器，只能为有序类型变量。（2）初值和终值为循环变量的初始值和终止值。（3）to为计数递增，downto为计数递减。(4)循环体可以是简单语句也可以是复合语句。

语句（5）对于递增循环，循环执行时先判断循环变量的值是否大于终值，若循环变量的值没有大于终值，则开始执行do后面的循环体，然后循环变量自动递增，并开始一个新的