Delphi - 相当于 C# 的三元运算符？ [复制]

Question

可能重复：
Is there, or is there ever going to be, a conditional operator in Delphi?

我知道 Delphi 没有 C# 中的三元运算符。 即?:

那么如何最好地表示这个函数调用呢？那里最干净的方法是什么？

如果有任何代码可以用来代替编写单独的函数，那会很好吗？如果不是，那么最有效和/或最简洁的代码表示形式是什么？

Answer 1

最接近三元运算符的是：

if (condition) then <statement> else <statement>;

据我所知，Delphi 中没有三元运算符。

Answer 2

试试绝地的 IFF：

function Iff(const Condition: Boolean; const TruePart: string; const FalsePart: string): string; overload;
function Iff(const Condition: Boolean; const TruePart: Char; const FalsePart: Char): Char; overload;
function Iff(const Condition: Boolean; const TruePart: Byte; const FalsePart: Byte): Byte; overload;
function Iff(const Condition: Boolean; const TruePart: Integer; const FalsePart: Integer): Integer; overload;
function Iff(const Condition: Boolean; const TruePart: Cardinal; const FalsePart: Cardinal): Cardinal; overload;
function Iff(const Condition: Boolean; const TruePart: Float; const FalsePart: Float): Float; overload;
function Iff(const Condition: Boolean; const TruePart: Boolean; const FalsePart: Boolean): Boolean; overload;
function Iff(const Condition: Boolean; const TruePart: Pointer; const FalsePart: Pointer): Pointer; overload;
function Iff(const Condition: Boolean; const TruePart: Int64; const FalsePart: Int64): Int64; overload;
function Iff(const Condition: Boolean; const TruePart: Variant; const FalsePart: Variant): Variant; overload;

Answer 3

当然可以

IfThen(SomeBooleanExpression, IfTrueReturnValue, IfFalseReturnValue)

其中返回值是数字 (uses Math) 或字符串 (uses StrUtils)。但请注意，这将在所有情况下评估两个参数 - 没有惰性评估，因此它不如 C# 中的 ?: 运算符高效，后者只评估正确的操作数。

所以你不能这样做

y := IfThen(x <> 0, 1/x, 0)

最好的就是坚持平凡

if x <> 0 then y := 1/x else y := 0;