Iif 評価

iif 関数は式の評価結果により返す引数を選択する便利な関数ですが、Delphi に同じ機能の関数は見当たりません。しかし以下の関数で同じ機能を実現できます。

■ Iif関数

//条件式 condを評価し,真のなら val_1を返す そうでないならval_2を返す　 function IIf(Cond: Boolean; Var_1,Var_2 :Variant):Variant; begin if Cond then Result := Var_1 else Result := Var_2; end;

コード提供は藤本さんです。ありがとうございます！

Delphi 6 からは IfThen 関数が追加になりました。ただし収録ユニットが Math ユニットなので Personal エディションでは使えないかもしれません、
※ uses 節に Math を追加してください。

■ IfThen関数の使用例

procedure TForm1.Button2Click(Sender: TObject); var Kubun : integer; begin Kubun := IfThen(CheckBox1.Checked, 1, 0); ShowMessage(IntToStr(Kubun)); end;

関連項目
IF 条件分岐
Select..Case 条件分岐