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 )