QBasic zu Delphi

[himitsu]

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];