델파이에서의 IIF

델파이에서 IIF가 없지만 IfThen이 있다.
IfThen을 쓰려면 uses절에 Math를 추가해야 된다.
Math를 추가하는 것을 봐서 짐작이 가듯 IfThen에서 리턴값은 수치값이다.

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