Dezimal auf Binär mithilfe von shr

[MichaelT]

Fast ...

Lass dich nicht irritieren von den Prozedurnamen des, hüstl, Testtreibers

Delphi-Quellcode:

function dec2bin(eingabe : BYTE) : STRING;

var ausgabe : STRING;
   bitmask : BYTE;
begin
   ausgabe := '';
   bitmask := 128;
   REPEAT
      IF (bitmask AND eingabe > 0) THEN begin
         ausgabe := ausgabe + '1';
      end ELSE begin
         ausgabe := ausgabe + '0';
      end;
      bitmask := bitmask SHR 1;
   UNTIL (bitmask = 0);
   dec2bin := ausgabe;
end;


procedure TfEnumerateDesktopsAndWindows.bnThundermotherClick(Sender: TObject);
var
  grr : byte;

begin
  for grr in [0,1,2,3,8,127,128,255] do
    lbx.Items.Add(dec2bin(grr));
end;

Zitat von polruler:

Ohhh so geht das also Vielen Dank !!!

Würde das so passen?

Code:

function dec2bin(eingabe : BYTE) : STRING;

var ausgabe : STRING;
   bitmask : BYTE;
begin
   ausgabe := '';
   bitmask := 128;
   REPEAT
      IF (bitmask AND eingabe > 0) THEN begin
         ausgabe := '1' + ausgabe;
      end ELSE begin
         ausgabe := '0' + ausgabe;
      end;
      bitmask := bitmask SHR 1;
   UNTIL (bitmask = 0);
   dec2bin := ausgabe;
end;