首页 > 代码库 > Object Pascal 语法之控制语句
Object Pascal 语法之控制语句
控制语句
1．常量声明语句
常量在声明时就被赋予了一个值，在程序执行过程中是不可改变的。
格式
const
常量名 ：数据类型 = 值
下面的例子声明了3 个常量：
const Pi = 3.14159; BookID = 362; BookName = "Delphi";
像变量一样，常量也有类型。上文的3 个常量的类型分别是Real 型、整型、字符串型。常量用“=”表示两边的值是相等的。
为常量指定数据类型，声明方法如下：
const
UserID :Integer =1;
UserName :String =‘XIAL l‘
Digits:array[0..9] of Char = (‘0‘,‘1‘,‘2‘,‘3‘,‘4‘,‘5‘,‘6‘,‘7‘,‘8‘,‘9‘);
2．赋值语句
赋值语句的形式如下：
variable:=expression; //变量: = 表达式;
3．Goto 语句
Goto 语句可以从程序中的一个地方直接跳转到另一个地方。但是从结构化程序设计的角度来考虑，尽量不要使用Goto 语句。
Goto 语句的形式如下：
goto label;
在使用Goto 语句之前，首先要声明标号。标号声明语句如下：
label label1,label2,...,labeln;
":="为赋值符号，表示将右边的内容赋值给左边的内容，两边的数据类型应保持一致。
4．复合语句
首尾使用Begin 和End 包括起来的一组语句称为复合语句。复合语句可以嵌套使用，也允许有空的复合语句。例如：
begin c:=a; a:=b; b:=c;end;
5．If 语句
if...then语句
if <条件> then
begin <语句>
end;
示例
if (Edit1.Text=‘xx‘) and (Edit2.Text = ‘Soft‘) then
begin
...
end;
if...then...else语句
if <条件> then <语句>else <语句>;
需要注意的是，上面两个例子中的<语句>可以是单语句或复合语句。If...Then 语句被认为是单语句，在语句结束时只有一个分号（在第1 种情况的Then 引导的子句之后，或在第2 种情况的Else 引导的子句之后）。
例如下面的代码中Date 为整数类型，判断Date 如果在1 与10 之间显示为“上旬”、11 与20 之间显示为“中旬”、21 与31 之间显示为“下旬”，如果数值不包含在上述范围内则显示“错误的日期”：
if (Date>=1) and (Date<=10) then Writeln(’上旬’)else if (Date>=11) and (Date<=20) then Writeln(’中旬’)else if (date>=21) and (Date<=31) then Writeln(’下旬’)else Writeln(’错误的日期’);
注意：Else 子句之前，Then 引导的子句之后是不能有分号的。否则将出现语法错误。
if...then...else if语句
语法：
if 条件 thenbegin 语句endelse if 条件 thenbegin 语句end;同样else if前面的一条语句后面不能加分号。
6．Case...of 语句
If...Then...Else 语句适合选项较少的情况，如果有很多选项的话利用If 语句就比较麻烦，在这种情况下，Case 语句就容易多了。Case 语句的语法如下：
case <表达式> of <数值>:<语句>; <数值>:<语句>;else <语句>;end;
下面这个例子中的S 为Char 类型。当用户输入一个字符后按回车键确认后判断变量S，如果是小写或大写字母将显示“字符”，如果是数字，则显示“数字”，其余的字符就显示“其他”，判断语句如
下：
var S:Char;begin Readln(S); case S of ‘a‘..‘z‘, ‘A‘..‘Z‘:Writeln(‘字符‘); ‘0‘..‘9‘:Writeln(‘数字‘); else Writeln(‘其他‘);end;
注意：Case 构造中的任何一个语句都可以是单语句或复合语句。如果需要在某种情况下执行多行代码，必须将它们用Begin...End 括起来。
7．Repeat...until 语句
Repeat 语句会重复执行一行或多行语句，直到某一状态为真。语句以Repeat 开始，以Until 结束，其后跟随被判断的布尔表达式。结构如下：
repeat <语句> until <条件表达式>
例如：
I:=0; repeat I:=I+1; Writeln(IntToStr(I)); until I>5;
执行以上的例子时，会显示1-6 的数字。布尔表达式I>5 直到Repeat...Until 程序段结束才会被计算，也就是Repeat 语句至少要执行一次。
8．While...do 语句
While 语句和Repeat 语句的不同之处在于While 语句的布尔表达式在循环的开始进行判断。如果表达式的结果为真则执行循环，否则退出循环。结构如下：
while <条件表达式> dobegin <语句> end;
例如：
I:=0;while I<5 do begin Writeln(IntToStr(I)); Inc(I); end;
执行以上的例子时会显示0-4 的数字。直到I 不小于5 时才退出循环。
9．For...do 语句
For 语句内的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。循环变量的类型可以是整型、布尔型、字符型、枚举型或子界型。结构如下：
for <条件表达式> dobegin <语句>end;
递增循环
for 循环变量:=初值 to 终值 do
begin
循环体语句
end;
递减循环
for 循环变量:=初值 downto 终值 do
begin
循环体语句
end;
下面的例子将显示1-5 的数字：
for I:=1 to 5 dobegin Writeln(IntToStr(I));end;
而下面的例子将显示5-1 的数字：
for I:=5 downto 1 dobegin Writeln(IntToStr(I));end;
10．Break 语句
在各循环中调用Break，可以使得程序的执行流程立即跳到循环的结尾。例如程序执行5 次后跳出循环，代码如下：
for I:=1 to 10 dobegin if I=5 then Break;end;
11．Continue 语句
如果想跳过循环中部分代码，并开始下一次循环，可以调用Continue 语句。下面的例子在执行第3 次循环时，Continue 后的代码不执行而继续下一次的循环：
for I:=1 to 5 dobegin if i=3 then Continue; Writeln(IntToStr(I));end;
12．With 语句
使用记录类型的变量时，可以通过With 语句指定一些语句，这些都是针对某一个变量来说的，这样可以简化代码的输入量。With 语句的形式如下：
with object do statement
例如：
type TEmployee=record Name : string[20]; YearHired:2000..2010; Salary: Double; Position: string[20];end;var Employee:TEmployee;begin with Employee do begin Name :=’Wang’; YearHired :=2005; Salary :=10000; Position := ’ Technic Department’;end;
13. 其他语句
Exit语句
Exit语句主要用于退出当前的代码块，如果该段代码块是主程序，那么Exit语句将导致程序终止，如果程序块是被调用的模块，则跳到上一层程序继续执行。
...
if Edit1.Text=‘‘ then
begin
Exit;
end;
...
Halt语句
Halt语句用于强制终止程序的执行，并返回到操作系统。
procedure TForm1.N21Click(Sender:TObject);begin if MessageDlg(‘真的要退出系统吗？‘,mtinformation,[mbyes,mbno],0)=mbyes then begin Halt; end;end;
RunError语句
RunError语句用于终止程序运行并产生一个运行期错误，错误号最高值为255。
procedure TForm.Button1Click(Sender:TObject);begin RunError(200);end;
Abort语句
Abort语句用于中止程序的运行，产生一个特殊的"无记载异常"，此异常与其他异常相同，只是不显示错误信息。
goto语句
goto语句使用起来十分方便，可以从程序的一个地方直接跳到另一个地方，尽量少用goto语句。
procedure TForm1.Button1Click(Sender:TObject);Label AA;//在此声明一个标签。var sum,i:Integer;begin sum:=0; i:=0; AA://使用标签； sum:=sum+i; i:=i+1; if i<=100 then goto AA;//如果i不满足条件，则直接跳转到使用标签的位置。 Edit1.Text:=IntToStr(sum);end;
Object Pascal 语法之控制语句