Forum: Sonstige Fragen zu Delphi
FreePascal
by Mavarik,
27. Feb 2017
Naja nicht so ganz...
Das erste Bit ist sicherlich bit 7 und nicht bit 0
Und bei Anhängen würde man auch eher ein Result := Result + '1' erwarten...
:twisted:
Forum: Sonstige Fragen zu Delphi
FreePascal
by Mavarik,
27. Feb 2017
Gut die Aufgabe war so...
Aber das geht natürlich auch einfacher!
function dec2bin(Eingabe : BYTE) : STRING;
var
I : BYTE;
begin
Result := '';
for i:=0 to 7 do
begin
Forum: Sonstige Fragen zu Delphi
FreePascal
by Mavarik,
27. Feb 2017
Ja ich dachte beim ersten lesen auch es sei "Dein" Code aber es ist eher so
function dec2bin(eingabe : Byte): string;
var
BitMask : Byte;
begin
BitMask := 128;
Result := '';
repeat
if Bitmask and Eingabe > 0 then
Forum: Sonstige Fragen zu Delphi
FreePascal
by Mavarik,
27. Feb 2017
Die Aussagen passen nicht zusammen.
Dezimal zu bin bedeutet mache aus 128 -> 10000000
Aber ein Byte ist schon Binär die Funktion müsste BytetoBinString heißen...
aber die Bedingung
> -Die Schleife endet wenn das Bit auf Null gesetzt ist.
Soll was bedeuten? Welches Bit ist "Das Bit"? Oder sollte es Das Byte ("Bitmask") heißen?