Prüfen ob eine von 20 checkboxen gecheckt ist

[Pseudemys Nelsoni]

hoi

sagen wir mal ich habe 20 checkboxen, wie prüf ich ob mindestens eine gecheckt ist? muss ich da 20 mal "if (CheckBox1.Checked) OR (CheckBox2.Checked) OR (CheckBox3.Checked) etc etc" schreiben? oder gehts auch eleganter?

[Daniel B]

Hi,

schau Dir FindComponent an.

[Minz]

grübel grübel,

du könntest glaub ich auch alle OnClick Ereignisse mit einer Prozedur verbinden, die eine Bool-Variable auf true setzt, wenn sie selbst zu true wird. Gleichzeitig musst du einen Zähler mitführen, der zählt wieviele auf true sind...ähm eigentlich reicht der Zähler

nach der Art:

Delphi-Quellcode:

procedure Form.CheckOnClick(Sender: TObject);
begin
  if Sender is TCheckBox then
    if Sender.Checked then inc(zaehler) else dec(zaehler);
end;

So dann verbindest alle mit CheckOnClick und du brauchst nur zahler abzufragen und weißt wieviele aktiviert sind. Weiß nicht ob der Code 100% stimmt, aber so ungefähr sollte es funzen

Gruß Minz