Zitat von
SirThornberry:
bei einer Checklistbox könnte man das ja dann in ne Schleife machen wenn es da nicht so ne Eigenschaft "Count" oder ähnliches gibt. (hatte auch an die Checklistbox gedacht aber hab die ni gefunden und dachte dann das ich mir das vielleicht nur eingebildet hab das es mal sowas gab)
Nö, haste nicht!
(unter zusätzlich)
Delphi-Quellcode:
function CheckCount(CheckListBox: TCheckListBox): Integer;
var
i, c: Integer;
begin
c := 0;
with CheckListBox do
for i := 0 to Pred(Count) do
if Checked[i] then
Inc(c);
Result := c;
end;