Thema: Delphi Checkboxen zu Zeichen

Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
 
FreePascal / Lazarus
 
#5

Re: Checkboxen zu Zeichen

  Alt 19. Mai 2008, 19:45
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
Felix Alter
  Mit Zitat antworten Zitat