Konversion von dezimal zu binär

[Popov]

Ich hab jetzt nicht ganz verstanden was das Problem ist, der Array oder wie man konvertiert. Ich hab mal auf die Schnelle eine Funktion erstellt, gebe das Ergebnis aber als String aus. Wer es anders will, bitte anders machen:

Delphi-Quellcode:

function IntToBinStr(Value: Integer; Digits: Byte = 32): String;
var
  i, k: Integer;
begin
  if Digits > 32 then Digits := 32; // 32 Bit Int, oder Value Typ ändern
  Result := '';
  k := 1;
  for i := 1 to Digits do //(4 * 8) = 32 Bit
  begin
    if (Value and k) = k then
      Result := '1' + Result else
      Result := '0' + Result;
    k := k * 2;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToBinStr(43));
end;

Es funktioniert auch ohne Power.