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
