Count Checkbox?

[dominikkv]

hi
ich würds auch über FindComponent machen:

Delphi-Quellcode:

var I, N: Integer;
//...
N := 0;
for I := 1 to 6 do
  if (FindComponent('CheckBox'+IntToStr(I)) as TCheckBox).Checked then
    Inc(N);

In N steht dann die Anzahl.
einen Nachteil hat das ganze aber: Mann muss seine CheckBoxen CheckBox1, CheckBox2 etc nennen
und der compiler hat bei dir gemeckert weil du die '' vergessen hast