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 )
发表于 @ 2005年06月28日 13:54:00|评论(loading...)|编辑