case文を利用した条件分岐処理 - Delphi

Delphiでcase文を使った条件分岐処理を紹介します。

書式

または、
「判定する変数」の値をcase文で判定し、値nと一致する場合は一致する値n:に続く処理を実行します。どの値にも当てはまらなかった場合は、elseブロック内の処理を実行します。Delphiではcase内の"値:"ブロックの中にbreak,exitといったswitch文から抜ける記述はなくても構いません。また、C,Javaのように値に一致した以降の他のブロックに制御が流れ落ちることはありません。

プログラム例

コード

procedure TForm1.Button4Click(Sender: TObject);
var
  value:integer;
begin
  value:=2;
  case value of
  0:begin
      Memo1.Text:='０です。';
    end;
  1:begin
      Memo1.Text:='１です。';
    end;
  2:begin
      Memo1.Text:='２です。';
    end;
  3:begin
      Memo1.Text:='３です。';
    end;
  else begin
      Memo1.Text:='それ以外です。';
  end;
  end;
end;

実行結果 (Memo1)

参考:エラーになる例

コード

下記のコードはコンパイルエラーになります。case文で判定できるのは順序型(int, long, charなど)の変数のみです。

procedure TForm1.Button5Click(Sender: TObject);
var
  value:string;
begin
  value:='penguin';
  case value of
  'penguin':begin
      Memo1.Text:='ペンギンです。';
    end;
  'whale':begin
      Memo1.Text:='くじらです。';
    end;
  else begin
      Memo1.Text:='それ以外です。';
  end;
  end;
end;