Delphi IfThen语句

 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas
 功能 返回指定的逻辑字符串

说明 

IfThen(True, '是', '否') = '是';

IfThen(False, '是', '否') = '否'

 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);

 

在数据库中，如果某个字段要在使用IfThen后可能插入null，则使用vartostr(null)函数给数据库字段赋值。

FQuery.Parameters.ParamValues['WhetherIns'] := IfThen(editWhetherIns.Text='', VarToStr(Null),editWhetherIns.Text);