if 条件分岐 if 条件分岐
IFは式を評価し、結果により処理を分岐させるフロー制御ステートメントです。
Delphiでも if..then..else を使用します。
| ■ if..then..else の例 |
procedure TForm1.Button1Click(Sender: TObject);
var
A, B : integer;
begin
A := Length(Edit1.Text);
B := Length(Edit2.Text);
//if..then の例
if A = B then begin
ShowMessage('AとBは等しい');
end;
//if..then..elseの例
if A = B then begin
ShowMessage('AとBは等しい');
end else begin
ShowMessage('AとBは等しくない');
end;
//if..then..else if..の例
if A = B then begin
ShowMessage('AとBは等しい');
end else
if A > B then begin
ShowMessage('AはBよりデカい');
end else begin
ShowMessage('AはB以下');
end;
//if..thenのネスト
if A = B then begin
if (A mod 2) = 0 then begin
ShowMessage('AとBは等しくて Aは偶数みたい');
end else begin
ShowMessage('AとBは等しくて Aは奇数みたい');
end;
end;
end;
|
begin end の間に一行しか無い場合は begin end を以下のように省略できます。
| ■ if..then..elseの例 |
procedure TForm1.Button1Click(Sender: TObject);
var
A, B : integer;
begin
A := Length(Edit1.Text);
B := Length(Edit2.Text);
//if..then の例
if A = B then ShowMessage('AとBは等しい');
//if..then..else の例
if A = B then ShowMessage('AとBは等しい')
else ShowMessage('AとBは等しくない');
end;
|
※elseの直前にセミコロンは指定できません。
関連項目
Select..Case 条件分岐