Delphi-仿vb里的IIF函数

 //Delphi 函数-IIF
 // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '', '');
 function IIF(lExp: boolean; vExp1, vExp2: variant): variant; overload;
 begin
   if lExp then
     Result := vExp1
   else
     Result := vExp2;
 end;