Diverse CheckGroup.Checked[n] zusammenfassen

[catweasel]

Moin

Hat jemand eine Idee wie ich nachstehenden Text vereinfachen kann?

Code: Alles auswählen

if CheckGroup3.Checked[0]  then hostproperties:=hostproperties+1;
  if CheckGroup3.Checked[1]  then hostproperties:=hostproperties+2;
  if CheckGroup3.Checked[2]  then hostproperties:=hostproperties+4;
  if CheckGroup3.Checked[3]  then hostproperties:=hostproperties+8;
  if CheckGroup3.Checked[4]  then hostproperties:=hostproperties+16;
  if CheckGroup3.Checked[5]  then hostproperties:=hostproperties+32;
  if CheckGroup3.Checked[6]  then hostproperties:=hostproperties+64;
  if CheckGroup3.Checked[7]  then hostproperties:=hostproperties+128;
  if CheckGroup3.Checked[8]  then hostproperties:=hostproperties+256;
  if CheckGroup3.Checked[9]  then hostproperties:=hostproperties+512;
  if CheckGroup3.Checked[10] then hostproperties:=hostproperties+1024;
  if CheckGroup3.Checked[11] then hostproperties:=hostproperties+2048;
  if CheckGroup3.Checked[12] then hostproperties:=hostproperties+4096;
  if CheckGroup3.Checked[12] then hostproperties:=hostproperties+8192;
  if CheckGroup3.Checked[14] then hostproperties:=hostproperties+16384;
  if CheckGroup3.Checked[15] then hostproperties:=hostproperties+32768;
  if CheckGroup3.Checked[16] then hostproperties:=hostproperties+65536;
  if CheckGroup3.Checked[17] then hostproperties:=hostproperties+131072;
  if CheckGroup3.Checked[18] then hostproperties:=hostproperties+262144;
  if CheckGroup3.Checked[19] then hostproperties:=hostproperties+524288;

Gruß
Michael

[m.fuchs]

Mal so aus dme Stehgreif und nicht ausprobiert:

Code: Alles auswählen

for i := 0 to 19 do
  if CheckGroup3.Checked[i] then
    hostproperties := hostproperties + (i ** 2)

hth
Michael

[catweasel]

Mal so aus dme Stehgreif und nicht ausprobiert:

Code: Alles auswählen

for i := 0 to 19 do
  if CheckGroup3.Checked[i] then
    hostproperties := hostproperties + (i ** 2)

Gibt den Fehler zurück:

Code: Alles auswählen

unit2.pas(107,41) Error: Operator is not overloaded

[m.fuchs]

Code: Alles auswählen

unit2.pas(107,41) Error: Operator is not overloaded

Da fehlt die Unit Math bei dir. Musst du noch einbinden.

Abgesehen davon ist auch ein Fehler meinerseits drin, es müsste richtig heißen:

Code: Alles auswählen

hostproperties := hostproperties + (2 ** i);

Man sollte doch ausprobieren bevor man postet, hilft bei den Flüchtigkeitsfehlern ungemein.

[catweasel]

Da fehlt die Unit Math bei dir. Musst du noch einbinden.

Abgesehen davon ist auch ein Fehler meinerseits drin, es müsste richtig heißen:

Code: Alles auswählen

hostproperties := hostproperties + (2 ** i);

Man sollte doch ausprobieren bevor man postet, hilft bei den Flüchtigkeitsfehlern ungemein.

Danke jetzt funktioniert´s. An sie Unit math hatte ich auch schon gedacht, allerdings hatte ich sie in die falsche Unit eingebunden

Gruß
Michael

[Socke]

Du könntest auch einfach ein Bit durch die Gegen schieben:

Code: Alles auswählen

hostproperties := hostproperties + 1 shl (i+1)

[mse]

Hat jemand eine Idee wie ich nachstehenden Text vereinfachen kann?

Code: Alles auswählen

if CheckGroup3.Checked[0]  then hostproperties:=hostproperties+1;
...

Um mal wieder "Dauerwerbung" zu machen
MSEgui's tbooleanedit (entspricht etwa TCheckBox) hat zu diesem Zweck "valuebitmask":

Code: Alles auswählen

property Tag: PtrInt read FTag write FTag default 0;
 
property value: boolean read getvalue write setvalue default false;
property group: integer read fgroup write fgroup default 0;
function valuetagbit: longword;
              //if value -> bits[tag] else -> 0
property valuebitmask: longword read getvaluebitmask write setvaluebitmask;
              //ored valuetagbit of all edits in group

Die "Tag" property bestimmt dabei die Bitnummer, "group" fasst die tbooleanedit mit dem gleichen "group"-Wert zu einer Gruppe zusammen.

Martin