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