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;

[Stevie]

Zitat von himitsu:

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

Völlig korrekt, aber ich musste irgendwie schmunzeln und an "Nachts ist es kälter als draußen" denken

[hboy]

Delphi-Quellcode:

// folgendes kann man zur design time festlegen:
//
Checkbox1.Tag := 1 shl 1;
Checkbox2.Tag := 1 shl 2;
//...
Checkbox15.Tag := 1 shl 15;
Checkbox16.Tag := 1 shl 16;

// Checkbox-Objekte sind etwa in einem Panel oder einer Groupbox

// ...

// und das hier funktioniert für eine beliebige Anzahl von Elementen mit leicht
// änderbaren Flags, dazu noch Kombinationen von Flags.
var
  idx: longint;
  tray : TWinControl;
  cb   : TCheckBox;
begin
  tray := (Checkbox1.Parent as TWinControl);
  for idx := 0 to tray.ControlCount - 1 do
  begin
     if (tray.Controls[idx] is TCheckbox) then
     begin
        cb := (tray.Controls[idx] as TCheckbox);
        cb.Checked := (cb.Tag AND Value) <> 0;
     end; 
  end;
end;

ps. alternativ zur Initialisierung (automatisches tagging):

Delphi-Quellcode:

uses math;
//...
var 
  cb : TCheckBox;
  i  : longint;
//...
for i := 1 to 16 do
begin
  cb := TCheckBox(FindComponent('CheckBox' + IntToStr(i)));
  if assigned(cb) then  cb.Tag := power(2,i-1);
end;