8.Delphi:选择语句if-then-

1.类型：if ··· then···，if···then···else···，if ···then ···else if··· else···
2.2.打开IDE，新建VCL应用，添加一个button1，一个memo1，双击button1，编写代码：

procedure TForm2.Button1Click(Sender: TObject);
var
  a, b, c: integer;
begin
  a := 3;
  b := 5;

  if (a < b) then
  begin
    Memo1.Lines.Add('1:a<b');   //显示：1:a<b
  end;

  if (a > b) then
  begin
    Memo1.Lines.Add('2:a>b');    //不显示 ，因为不满足条件，不会执行这一语句
  end;

  if(a>b) then
  begin
    Memo1.Lines.Add('3:a>b');   //不显示 ，因为不满足条件，不会执行这一语句
  end else                                  //注意：这个end后面不写“ ；“
  begin
     Memo1.Lines.Add('4:a<b')   //显示:4:a<b
  end;

   if(a>b) then
  begin
    Memo1.Lines.Add('5:a>b');   //不显示 ，因为不满足条件，不会执行这一语句
  end else if(a=b) then               //注意：这个end后面不写“ ；“
  begin
     Memo1.Lines.Add('6:a=b')   //不显示 ，因为不满足条件，不会执行这一语句
  end else                                   //注意：这个end后面不写“ ；“
  begin
     Memo1.Lines.Add('7:a<b')   //显示:7:a<b
  end;

end;

8-1.png

8-2.png

最后编辑于：2021.11.19 22:55:07

8.Delphi:选择语句if-then-

推荐阅读更多精彩内容