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 )

Delphi 版的IIF函数相关推荐

《Delphi 版 everything、光速搜索代码》关于获取文件全路径 GetFullFileName 函数的优化
<Delphi 版 everything.光速搜索代码>,文章中关于获取文件全路径的函数:GetFullFileName,有一个地方值得优化. 就是有多个文件,它们可能属于同一个目录. 譬 ...
[转载]《Delphi 版 everything、光速搜索代码》关于获取文件全路径 GetFullFileName 函数的优化...
Delphi 版 everything.光速搜索代码>,文章中关于获取文件全路径的函数:GetFullFileName,有一个地方值得优化. 就是有多个文件,它们可能属于同一个目录. 譬如 Sy ...
WinAPI【远程注入】利用远程线程注入DLLDelphi版
{ WinAPI[远程注入]利用远程线程注入DLLDelphi版} (okwary) 小叹的学习园地 ( SDK文档里是这样描述的:进程是一个正在运行的程序,它拥有自己的地址空间,拥有自己的 ...
NeHe的OpenGL教程7（Bang翻译Delphi版）－如何使用光源
NeHe的OpenGL教程7(Bang翻译Delphi版)-如何使用光源在这一课里,我将教会你如何用光源照亮立方体的六个面,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp prog ...
《zw版·Halcon-delphi系列原创教程》 zw版-Halcon常用函数Top100中文速查手册
<zw版·Halcon-delphi系列原创教程> zw版-Halcon常用函数Top100中文速查手册 Halcon函数库非常庞大,v11版有1900多个算子(函数). 这个Top版,对 ...
NeHe的OpenGL教程8（Bang翻译Delphi版）－如何制作立体透明效果
NeHe的OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果在这一课里,我将教会你如何制作立体透明效果,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp prog ...
OpenGL教程8（Bang翻译Delphi版）－如何制作立体透明效果 .
OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果在这一课里,我将教会你如何制作立体透明效果,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp program l ...
Delphi 版 everything、光速搜索代码
近日没啥事情,研究了一下 everything.光速搜索原理.花了一个礼拜时间,终于搞定. 废话不多说,直接上代码: unit uMFTSearchFile; {dbyoung@sina.com201 ...
使用国密函数读取金税盘信息-Delphi 版
一.开发环境及工具上一篇文章,我们使用C++ 实现了航天版国密算法模块获取金税盘信息,请参阅上期文章. 本文将使用 Delphi 来实现,所示代码环境:Windows10 x64专业版(1904 ...

Delphi 版的IIF函数

Delphi 版的IIF函数相关推荐

最新文章

热门文章