Dezimalzahlen ins Binärsystem

[implementation]

Zitat von DeddyH:

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.

[DeddyH]

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

[implementation]

Zitat von DeddyH:

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

[NewDelphiBenutzer]

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

[implementation]

Zitat von NewDelphiBenutzer:

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

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

[Assarbad]

Zitat von implementation:

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

Hmm?

[implementation]

Steinige mich, ich hatte einen Moment geistiger Umnachtung

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