function varIf( Condition: Boolean; TrueVal, FalseVal: Variant ): Variant;
begin
if Condition then
Result := TrueVal
else
Result := FalseVal;
end;
// 因为用的变量类型是Variant,所以可以适应很多类型,不过也有限制的。
我估计你可以用一个专门一点的函数如:
function GetFieldValue( AField: TField; NullVal: Variant ): Variant;
begin
if AField.IsNull then
Result := NullVal
else
Result := AFieldValue;
end;