Bits in Str umwandeln

[Khabarakh]

@Sharky: Warum so kompliziert?

Delphi-Quellcode:

function DecToBin(const AValue: Cardinal; const ADigits: Byte): string;
var
  i: Integer;
begin
  if ADigits > SizeOf(AValue) * 8 then
    Exit;
  for i := ADigits - 1 downto 0 do
    Result := Result + IntToStr(AValue shr i and 1);
end;