Delphi Dezimalzahlen ins Binärsystem

Dezimalzahlen ins Binärsystem

Ein Thema von NewDelphiBenutzer · begonnen am 4. Nov 2010 · letzter Beitrag vom 4. Nov 2010

Registriert seit: 5. Mai 2008
940 Beiträge

FreePascal / Lazarus

4. Nov 2010, 15:18

2 Möglichkeiten:

Delphi-Quellcode:

			if dezimalzahl div 128 = 1 then

  checkbox128.checked := true

else

  checkbox128.checked := false;

Oder eleganter:
checkbox128.checked := dezimalzahl div 128 = 1;

Man bedenke, dass nachfolgende Mod nicht zu vergessen, sonst kommt bei 64, 32, 16, 8, 4, 2 und 1 nur Crap raus.

GNU/Linux- und FreeBSD-User |

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: