Checkboxen zu Zeichen

[FAlter]

Hi,

für sowas kennt Delphi Mengen. Die sind standardmäßig so platzsparend wie Möglich, also bei maximal acht Elementen sind sie nur ein Byte groß. Bei bis 16 wären es zwei Bytes.

Delphi-Quellcode:

type
  TCheckBoxen = set of (cbEins, cdZwei, cbDrei, cbVier); //set = Menge

...

var
  CheckBoxen: TCheckBoxen;

...

CheckBoxen := []; //Leere Menge

if CheckBox1.Checked then
  CheckBoxen := CheckBoxen + [cbEins]; //+ Teilmenge hinzufügen, - Teilmenge entfernen

...

CheckBox1.Checked := cbEins in CheckBoxen //Vorhandensein prüfen

//Falls du den Inhalt als String darstellen willst
ShowMessage(IntToHex(Byte(CheckBoxen), 2));
//Wenn du hier einen ungültigen Typecast gemeldet bekommst, ist deine Menge größer (ab 9 Elementen)

Mfg
FAlter