Werte in binärer Darstellung

[DeddyH]

Etwas Fertiges gibt es AFAIK nicht. Du kannst es ja mal so versuchen:

Delphi-Quellcode:

function ZahlAlsBinaer(Zahl: integer): string;
const sBit: array[Boolean] of char = ('0','1');
var iBit: int64;
begin
  Result := '';
  iBit := 1;
  repeat
    Result := sBit[(Zahl and iBit) > 0] + Result;
    iBit := iBit shl 1;
  until iBit > Zahl;
end;

P.S.: Willkommen in der DP

[EDIT]So funktioniert das aber nur bei positiven ganzen Zahlen[/EDIT]