Anzahl der markierten Checkboxen zählen?

[malo]

Gibt es in Delphi eine Möglichkeit, die Anzahl der markierten Checkboxen zu zählen, sodass ich nachher weiß, wieviele meiner Checkboxen checked und wieviele nicht checked sind?

[yankee]

oh gott, wofür brauchst du dass den??
Naja also du könntest alle checkboxen durchgehen. Also wenn du die Delphistandardkompobenennung nimmst (also checkbox1, checkbox2,....) dann ginge das so:

Delphi-Quellcode:

count :=0;
for i:=1 to [Anzahl der checkboxen] do
begin
    if TCheckBox(FindComponent('checkbox'+inttostr(i).checked) then inc(count);
end;

am ende steht in count die Zahl drin.
Ungetestet, kp, ob die Syntax stimmt ;-)

[mirage228]

Hi,

so geht es für alle CheckBoxen:

Delphi-Quellcode:

var
  i, count: integer;
begin
  count := 0;
  for i := 0 to Self.ControlCount-1 do
    if (Self.Controls[i] is TCheckBox) and
      (TCheckBox(Self.Controls[i]).Checked) then
        Inc(Count);

Der Code muss in eine Methode Deines Forms.

mfG
mirage228

[malo]

Ah, super Leute, klappt! Danke