Delphi 版的IIF函数

Delphi 版的IIF函数

不少编程语言都有 IIF 函数，我们也可以构造自己的IIF函数：

// ------------------------------------------------------------------------
// 格式：IIF( lExp,  vExp1,  vExp2 )
// 参数：
//  lExp  : 逻辑表达式
// vExp1, vExp2 : 将返回的值
// 说明：当 lExp 为真时，返回 vExp1；lExp 为假时，返回 vExp2
// ------------------------------------------------------------------------
Function IIF( lExp:boolean; vExp1,vExp2 : variant) : variant; overload ;
begin
  if lExp
  then Result := vExp1
  else Result := vExp2 ;
end;

举例：

  Edit1.Text := iif( Button1.visible,  '可见', '不可见' ) ;

( By ForestK )