Das ganze braucht man nicht auf Boolean's zu beschränken.
So kann man sich auch case n of's sparen
Delphi-Quellcode:
const
ccHexAlpha : array[0..15] of char = '0123456789ABCDF';
...
ccHexAlpha[dwWert and $F]
oder
Delphi-Quellcode:
type
TFarben = (colBlack, colRed, colGreen, colWhite);
const
csTexte : array [TFarbe] of String = ('Schwarz', 'Rot', 'Grün', 'White');