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.