Und hier noch ein kleiner Alternativvorschlag:
Delphi-Quellcode:
function HexToBinaer(C : Char) : String;
// Zu einem Hex-Zeichen (0..A) wird die passende 4-stellige Binäranzeige
// (inklusive abschließendem Leerzeichen) zurückgeliefert.
var c1, c2, c3, c4: Char;
X : Byte;
begin
if C <= '9' then X := ord(C) - 48 else X := ord(C) - 55;
if X and 8 = 8 then c1 := '1' else c1 := '0';
if X and 4 = 4 then c2 := '1' else c2 := '0';
if X and 2 = 2 then c3 := '1' else c3 := '0';
if X and 1 = 1 then c4 := '1' else c4 := '0';
Result := c1 + c2 + c3 + c4 + ' ';
end;
Gruß
Daddy