InttoBinary???

[Chewie]

Liefert Borland eine Funktion mit, mit der ich eine 1 Byte große Zahl (entweder dezimal oder hexadezimal) in die entsprechende binäre Form umwandeln kann? Oder muss ich das selber machen?

[CalganX]

Da heißt es das ganze selbstprogrammieren. Und ich sage dir: VIEL SPAß! Ich habe damit mal angefangen, aber gleich wieder aufgehört. Denn es ist doch ein wenig mehr als Modulo...

Chris

[Christian Seehase]

Moin Chewie,

meinst Du das so wie IntToHex?

Dann hätte ich hier mal einen Vorschlag:

Delphi-Quellcode:

function ByteToBinStr(const AbValue : Byte) : string;

var
  bMask : Byte;
  i     : integer;

begin
  Result := StringOfChar('0',8);
  bMask  := 1;
  for i := 8 downto 1 do
  begin
    if (AbValue and bMask) <> 0 then
    begin
      Result[i] := '1';
    end;
    bMask := bMask shl 1;
  end;
end;

[Chewie]

Zitat:

Zitat von Christian Seehase

Meinst Du das so wie IntToHex?

Genau das meinte ich. Danke für die Funktion, habe sie zwar nicht ausprobiert, aber auf nem Blatt Papier durchgerechnet, und wenns da funktioniert, sollte es auch im Programm funktionieren.

Ach ja, gibts ne Funktion, die aus einer Hexadezimal-Zahl eine Dezimalzahl errechnet? Also das Gegenteil von InttoHex?

[Christian Seehase]

Moin Chewie,

ja gibt's:

Delphi-Quellcode:

StrToInt('$'+sHexString);

[Chewie]

Ach so. Ist ja eigentlich logisch. Danke.