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