Werte in binärer Darstellung

[Viktorii]

Moin zusammen.

Im Moment arbeite ich unter Delphi mit Bitmasken. Ich würde diese gerne in binärer Form darstellen, der einfachen Lesbarkeit des Quellcodes wegen.
Ich weiß, dass man Werte im HEX-Format darstellen kann, in dem man ihnen eine $-Zeichen voranstellt. So mache ich es im Moment auch für meine Masken und schreibe die binäre Maske als Kommentar dazu. Gibt es ein 'Präfix' um die Maske direkt binär darstellen zu können?

Vielen Dank.

[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]