Delphi中选择语句的使用

 

IF THEN语句的使用

===================================

方式一 IF THEN...

//这里又可以写成两种,但是建议一句的不加begin 多句的加begin
IF (A>0) Then
语句1;
或
IF (A>0) Then
begin
语句1; //这里说明一下如果只有一个语句也可以用begin.但是语句后边;可写可不写.建议按规定的来.
语句1;
end;

方式二 IF THEN ELSE...

//单个语句的一种方式
IF (A>0) Then
语句1
Else
语句2;
//========特别注意- -和vb不同。没有end;任何if语句后边都不用加end;只有多语句加了begin之后才加end;
//多个语句的和个单个语句混合表达式.
IF (A>0) Then
    begin
    语句1;
    语句2;
    end //注意这里不能加;只要是有else的后边end都不能加;除了最后一个
Else
    begin
    语句1;
    语句2;
    end; //注意这里要加; 整个IF语句结束,
//如果不是多语句的结尾不需要加end; 和vb不同

方式二 IF THEN ELSE IF...

//单个语句的一种方式
IF (A>0) Then
语句1
Else IF(A>1) Then
语句2;
Else IF(A>2) Then
...N
//多个语句的和个单个语句混合表达式.
IF (A>0) Then
    begin
    语句1;
    语句2;
    end //注意这里不能加;只要是有else的后边end都不能加;除了最后一个
Else IF (A>1) Then
    begin
    语句1;
    语句2;
    end 
Else //当然else也可以不用。
    语句1;
//如果不是多语句的结尾不需要加end; 和vb不同

 

===================================

Case of语句的使用

一.方式

 case <表达式> of
<数值>:<语句>;
<数值>:<语句>;
else
<语句>;
end;

例1:

case a of 

1:语句1;

2:语句2;

end;

例2:

case a of 

1:语句1;

2:语句2;

else

语句n;

end;

例3:

case a of 

1,2,3:语句1;

2:语句2;

end;

二.方式 多语句

 

 case <表达式> of
<数值>:

begin

语句1;

语句2;

语句n;

end;
else
<语句>;
end;

 

case a of
1:showmessage('A');
2:
begin
 showmessage('B');
 showmessage('B');
end;
3:showmessage('A');
4:
begin
 showmessage('B');
 showmessage('B');
 showmessage('C');
end;
else
showmessage(inttostr(a));
end;
//注意case of语句和if又不同 结束必须用end;结尾.而if则不需要
而且每一句中多语句也好单个语句也好都需要;结尾

 

 

 

'=======================

在delphi中基本上多语句就一定要用begin+end当然注意只有最后一句才能加;