Hi,
wenn es wirklich nur die 3 Checkboxen sind:
Delphi-Quellcode:
var
Count : Integer;
begin
Count := Ord(CheckBox1.Checked) + Ord(CheckBox2.Checked) + Ord(CheckBox3.Checked);
Label1.Caption := IntToStr(Count);
end;
Bei einer (viel) größeren Anzahl bietet sich eine Schleife ähnlich der an, die Markus vorgeschlagen hat. Voraussetzung ist dann aber, daß die Checkboxen lückenlos durchnummeriert sind.
Gruß Hawkeye