integer bit werte in checkbox anzeigen

[himitsu]

Ansonsten hättest du selbst bei den IFs 80% der Zeilen einsparen können.

Delphi-Quellcode:

CheckBox16.Checked := (Value and 32768) <> 0;
CheckBox15.Checked := (Value and 16384) <> 0;
CheckBox14.Checked := (Value and 8192) <> 0;
...
CheckBox1.Checked := (Value and 1) <> 0;

Und Hexadezimal läßt sich Binär auch viel schöner rechnen, als mit Dezimal.

Delphi-Quellcode:

CheckBox16.Checked := (Value and $8000) <> 0;
CheckBox15.Checked := (Value and $4000) <> 0;
CheckBox14.Checked := (Value and $2000) <> 0;
...
CheckBox1.Checked := (Value and $0001) <> 0;