Is there an easier way to do boolean conversions?

Question

I have used this scenario many times in nearly all my projects, when I'm doing some sort of data conversion, when it comes to booleans, I kinda get a little lost when it comes to making it simple. This statement below sticks out like a sore thumb all over my code:

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

I'm wondering if there's an easier way to perform this evaluation? Perhaps some use of the Case statement I don't know about? My actual implementation is more complex than just StrVal but it does consist of returning two different values depending on whether it's True or False. For example, here's some real code...

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

That's just to emphasize on how simple I'm hoping. I'm wondering if I can do something along the lines of this:

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

I'm sure that's not a real command, but I'm looking for that type of simplicity in one single line.

Answer 1

In the unit StrUtils, there is ifthen()

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

And for this specific case you could even use:

StrVal := BoolToStr(BoolVal); 

Answer 2

Ow com'on nobody ever heard of an array indexed by boolean?

const   BOOL_TEXT: array[boolean] of string = ('False', 'True');   YES_NO_TEXT: array[boolean] of string = ('No', 'Yes');   ERROR_OR_WARNING_TEXT: array[boolean] of string = ('Warning', 'Error'); 

It is in fact what BoolToStr itself uses!

function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; const   cSimpleBoolStrs: array [boolean] of String = ('0', '-1');