man braucht nichtmal ein CASE
if zahl <= 9 then tuwas1 else tuwas2;
also
Delphi-Quellcode:
if (wert
and 240)
div 16 <= 9
then
ascii := CHR((wert
and 240)
div 16 + 48)
else
ascii := CHR((wert
and 240)
div 16 + 55);
allerdings mach ich es meist mehr so
Delphi-Quellcode:
const cHexChars:
array[0..15]
of Char = '
0123456789ABCDEF';
ascii := cHexChars[(wert
and 240)
div 16];