Delphi-仿vb里的IIF函数 

1 //Delphi 函数-IIF 
2 // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '1', '0');
3 function IIF(lExp: boolean; vExp1, vExp2: variant): variant; overload;
4 begin
5   if lExp then
6     Result := vExp1
7   else
8     Result := vExp2;
9 end;

 

posted @ 2014-07-28 23:10  不平凡总在于坚持！  阅读(330)  评论(0)  编辑  收藏  举报