Dezimal auf Binär mithilfe von shr

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