[Delphi]有用的小函数IIF

某些情况下直接使用IIF可以使程序变得更加简洁，Delphi没有现成的，写一个也很简单：

function iif(Condition: Boolean; TrueReturn, FalseReturn: Variant): Variant;
begin
  if Condition then
    Result := TrueReturn
  else
    Result := FalseReturn;
end;