0b0111 in Delphi-Sprache

[scp]

Eine Alternative:

Delphi-Quellcode:

function ByteToBinWord(AByte : Byte) : LongWord;
begin
  result := AByte and $01;

  result := result + (((AByte shr 1) and $01) *       10);
  result := result + (((AByte shr 2) and $01) *      100);
  result := result + (((AByte shr 3) and $01) *     1000);
  result := result + (((AByte shr 4) and $01) *    10000);
  result := result + (((AByte shr 5) and $01) *   100000);
  result := result + (((AByte shr 6) and $01) *  1000000);
  result := result + (((AByte shr 7) and $01) * 10000000);
end;

function BinWordToByte(ABinWord : LongWord) : Byte;
begin
  result := 0;
  result := result + ((ABinWord div 10000000) shl 7); ABinWord := ABinWord mod 10000000;
  result := result + ((ABinWord div  1000000) shl 6); ABinWord := ABinWord mod  1000000;
  result := result + ((ABinWord div   100000) shl 5); ABinWord := ABinWord mod   100000;
  result := result + ((ABinWord div    10000) shl 4); ABinWord := ABinWord mod    10000;
  result := result + ((ABinWord div     1000) shl 3); ABinWord := ABinWord mod     1000;
  result := result + ((ABinWord div      100) shl 2); ABinWord := ABinWord mod      100;
  result := result + ((ABinWord div       10) shl 1); ABinWord := ABinWord mod       10;
  result := result + ABinWord;
end;

function ByteToBinStr(AByte : Byte) : String;
begin
  result := IntToStr(ByteToBinWord(AByte));
  while (length(Result) < 8) do
    result := '0' + result;
end;

function BinStrToByte(ABinStr : String) : Byte;
begin
  result := BinWordToByte(StrToIntDef(ABinStr, 0));
end;

So kann man 8 Nullen und Einsen in einen LongWord packen und wieder als Byte oder String zurückholen.