Bits in Str umwandeln

[Sharky]

Um die Frage aber trotzdem zu beantworten
Ich habe mit der Suche (IntTOBin) diesen Code von Christian gefunden und ihn nur leicht abgeändert.

Delphi-Quellcode:

function IntToBin(const AdwValue: DWORD; adigits : Byte): string;
  function PowerOf2(const AbExponent: byte): DWORD;
  var
    i: byte;
  begin
    Result := 1;
    for i := 1 to AbExponent do
    begin
      Inc(Result, Result)
    end;
  end;
var
  dwPower: DWORD;
  i: integer;
  dwValue: DWORD;
begin
  Result := StringOfChar('0', adigits);
  dwValue := AdwValue;
  for i := Pred(adigits) downto 0 do
  begin
    dwPower := PowerOf2(i);
    if dwValue >= dwPower then
    begin
      Result[adigits - i] := '1';
      Dec(dwValue, dwPower);
    end;
  end;
end;

procedure TForm1.btn_ConvertClick(Sender: TObject);
begin
  ShowMessage (IntToBin(10,8));
end;