delphi – 有更简单的布尔转换方法吗？

在几乎所有的项目中，我都使用过这个场景，当我进行一些数据转换时，对于布尔值来说，简单来说，我有点失落。下面的这个声明在我的代码中像一个痛苦的拇指：

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'));

我相信这不是一个真正的命令，但我正在一条线上寻找那种简单。

解决方法

在单位StrUtils中，有ifthen()

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

对于这种具体情况，您甚至可以使用：

StrVal := BoolToStr(BoolVal);