delphi if 语句循环语句

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

if语句-------------------------------------------------------------------------------------------------------------------------------------------------
其实delphi中的IF语句和VB中的语句有点相像，都是IF .... THEN...
不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧，呵呵。
下边写几个IF语句的例子"：
1、IF.. THEN
if 1=1 then
begin
//这里写执行语句
end;
 
2、IF..ELSE
if 1=1 then
begin
..............
end //记住这里不能加分号。
else
begin
.....................
end; //这里需要加分号
 
3、IF...ELSE IF..
if 1=1 then
begin
..............
end //记住这里不能加分号。
else IF 1=2 THEN
begin
.....................
end; //这里需要加分号
 
OK,全部搞定了。
  
  
循环语句-----------------------------------------------------------------------------------------------------------------------------------------
在Delphi中可以使用for to/down to do、while…do和repeat…until三种方式来实现循环控制。
view source
print?
01  var
02    I: Integer;
03    X: Integer;
04  begin
05    X := 10;
06    for I := 0 to 9 do       { I从0递增变化到9，依次执行10次DoSomething}
07    begin
08      { DoSomething}
09    end;
10   
11    for I := 0 to Pred(X) do { Pred(X)返回X的前一个值，即9}
12    begin
13      { DoSomething}
14    end;
15   
16    for I := 9  downto 0 do  { I从9递减变化到0，依次执行10次DoSomething}
17    begin
18      { DoSomething}
19    end;
20   
21    X := 8;                  { I从9递减到0，循环10次}
22    for I := Succ(X) downto 0 do
23    begin                    { Succ函数返回指定值的后一个}
24      { DoSomething}
25    end;
26   
27    I := 0;
28    while I <= 10 do  { 和for I := 0 to 10 do的功能是一样的}
29    begin
30      ShowMessage(IntToStr(I));
31      Inc(I);         { while的特点就是可以自己控制循环因子}
32    end;
33   
34    I := 0;
35    repeat            { 和while I <= 10 do 功能相同}
36      ShowMessage(IntToStr(I));
37      Inc(I);
      until I = 10;
       
      I := 0;   { Inc以指定的值递增，Dec以指定的值递减}
      Inc(I);   { I = 1}
      Inc(I, 2);{ I = 3}
      Dec(I, 2);{ I = 1}
      Dec(I);   { I = 0}
      ShowMessage(IntToStr(I));<br> end;
Caution
使用for方式要注意，循环变量的步长是固定为1的，不能再循环体中用代码进行修改。
while的特点就是可以自行控制循环变量的变化，灵活性比for更大。
repeat是从while演化过来的。while首先要判断条件是否成立再执行，而repeat是首先执行，再判断条件是否成立。
Note
上面代码中对于I变量名的使用起源于FORTRAN语言，而这也是for循环的习惯用法。
Continue和Break过程
Continue过程，用来强制程序执行到循环底部并进入一个循环，而跳过Continue后面的所有语句。如果位于try…finally块中则会先执行finally..end块再进入下一个循环。
view source
print?
    var
      I:Integer;
    begin
      for I := 0 to 2 do
      begin
        try
          if I < 1 then
            Continue;
          ShowMessage(IntToStr(I));
        finally
          ShowMessage('finally..end');
        end;
      end;
    end;
运行结果依次如下（图示中0,1,2分别代表循环变量I变化时的显示结果）：
0027
Break过程，用来循环正常结束之前终止循环。如果位于try…finally块中，则finally…end块也会得到执行，例如下面代码：
view source
print?
    var
      I:Integer;
    begin
      for I := 0 to 2 do
      begin
        try
          if I > 1 then
            Break;
          ShowMessage(IntToStr(I));
        finally
          ShowMessage('finally..end');
        end;
      end;
    end;
运行结果依次如下（图示中0,1,2分别代表循环变量I变化时的显示结果）：
0028
Continue和Break只能用在for、while和repeat循环中，如果在循环外部用这两个过程将会产生编译器错误。