delphi - 有没有更简单的方法来进行 boolean 转换？

Question

我在几乎所有项目中都多次使用过这种场景，当我进行某种数据转换时，当涉及到 boolean 值时，我在简化它时有点迷失。下面的这句话在我的代码中显得很突出:

if BoolVal then
  StrVal:= 'True'
else
  StrVal:= 'False';

我想知道是否有更简单的方法来执行此评估？也许我不知道 Case 语句的某些用途？我的实际实现比 StrVal 更复杂，但它确实包括根据 True 或 False 返回两个不同的值。例如，这是一些真实的代码...

if fsBold in Can.Font.Style then
  ConvertTo(AddSomeOtherText + 'True')
else
  ConvertTo(AddSomeOtherText + 'False');

这只是为了强调我希望多么简单。我想知道我是否可以做一些类似的事情:

ConvertTo(AddSomeOtherText + BoolToStrCase((fsBold in Can.Font.Style), 'True', 'False'));

我确信这不是一个真正的命令，但我正在寻找单行中的那种简单性。

Answer 1

在StrUtils单元中，有ifthen()

StrVal := IfThen(BoolVal,'True','False');

对于这个具体情况，您甚至可以使用:

StrVal := BoolToStr(BoolVal);