Dezimalzahlen ins Binärsystem

[implementation]

Zitat:

Zitat von DeddyH (Beitrag 1059659)

2 Möglichkeiten:

Delphi-Quellcode:

if dezimalzahl div 128 = 1 then
  checkbox128.checked := true
else
  checkbox128.checked := false;

Oder eleganter:

Delphi-Quellcode:

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.:warn:

[DeddyH]

Es ging doch in meinem Post nur darum, wie man eine Checkbox checkt ;)

[implementation]

Zitat:

Zitat von DeddyH (Beitrag 1059662)

Es ging doch in meinem Post nur darum, wie man eine Checkbox checkt ;)

War auch keine Kritik an dich, ich wollte nur vermeiden, dass der TE das nachher noch vergisst und habe es daher vorsichtshalber nochmal gepostet :cyclops:

[NewDelphiBenutzer]

das müssten dann ja 10.000.000 sein, wenn man das Muster verfolgt.

[implementation]

Zitat:

Zitat von NewDelphiBenutzer (Beitrag 1059664)

das müssten dann ja 10.000.000 sein, wenn man das Muster verfolgt.

Was jetzt? dec 128 => bin? Dann rechne lieber nochmal nach :wink:

[Assarbad]

Zitat:

Zitat von implementation (Beitrag 1059665)

Was jetzt? dec 128 => bin? Dann rechne lieber nochmal nach :wink:

Hmm? :gruebel:

[implementation]

Steinige mich, ich hatte einen Moment geistiger Umnachtung :wall:

[NewDelphiBenutzer]

hmm was denn jetzt??? ich habe das muster verstannden
die zahlen 1,2,4,8,16,32 usw sich wird ne null hinten rangehängt bei den binärzahlen bei jeder verdopplung

[NewDelphiBenutzer]

also wie soll ich das jetzt machen ich muss ja noch irgendwas mit strTofloat oder so einfügen ich versteh es irgendwie nicht

[DeddyH]

Du musst nur den Inhalt des Edits in eine Zahl wandeln, die Du dann untersuchen kannst. Dazu kannst Du StrToInt oder besser TryStrToInt verwenden.