《Delphi XE10》流程控制（04）

if语句

var
  I: Integer;
  FileGood: Boolean;
begin
  FileGood := True;
  if FileGood then     { 简洁的写法，判断FileGood是否为True}
    ShowMessage('True');
  { 上面的写法等同于下面}
  if FileGood = True then ShowMessage('True');
 
  if I > 0 then       { 如果I大于0}
    DoSomething1
  else if I < 0 then  { 如果I小于0，else if块不是必须的}
    DoSomething2
  else                { 如果是其他条件，通常来实现默认的处理，else块也不是必须的}
    DoSomething;
end;

case语句

var
  I: Integer;
begin
  case I of
    1:      { 如果 I = 1}
      DoSomething1;
    2, 3:   { 如果 I = 2或者3，相当于if I in [2, 3]}
      DoSomething2;
    4..10:  { 如果 I在4到10范围内（含4和10）}
      DoSomething3;
  else      { 如果是其他条件，通常用来实现默认处理，else块也不是必须的}
    DoSomething;
  end;
end;

while语句

  i := 0;
  while i < 10 do
  begin
    //循环11次 0，1，2，3，4，5，6，7，8，9，10
    i := i + 1;
  end;

repeat-until语句

  i := 0;
  repeat
     //循环11次 0，1，2，3，4，5，6，7，8，9，10
    i := i + 1;
  until i < 10;

for语句

  for i := 0 to 10 do
  begin
    //循环11次 0，1，2，3，4，5，6，7，8，9，10
  end;

  for i := 10  downto 0 do
  begin
    //循环11次 10，9，8，7，6，5，4，3，2，1，0
  end;

 

转载于:https://www.cnblogs.com/YiShen/p/9745477.html