CheckListBox

[turboPASCAL]

Delphi-Quellcode:

var
  i, n : integer;
begin
  n := 0;
  for i := 0 to CheckListBox.Items.Count - 1 do
    if CheckListBox.Checked[i] then inc(n);

  showmessage(inttostr(n) + ' Checked.');
end

So oder mal in der Onlinehilfe stöbern.