For i := 0 to ComponentCount - 1 Do
If (Components[i] is TCheckBox) then
If (Components[i] as TCheckBox).Checked then
Begin
inc(CheckBoxCheckedCount);
CheckBoxArray[CheckBoxCheckedCount] := Components[i] as TCheckBox).Tag;
End;
end;

Essentially what this will give you is:

(a) the number of checkboxes ticked in the CheckBoxCheckedCount variable
(b) the tag numbers of those check boxes which are ticked in the CheckBoxArray variable.

I have 200 checkboxes and one button. Every chckbox has different captions. I check 120 of them. (But they re in different order.) OnButton1.Click i want to write all of the checked CheckBoxes.Caption. Ok Now?

procedure Button1Click(Sender: TObject);
begin
For i := 0 to ComponentCount - 1 Do
If (Components[i] is TCheckBox) then
If (Components[i] as TCheckBox).Checked then
Begin
ShowMessage((Components[i] as TCheckBox).Caption);
End;
end;

This will put out a message for each one that is ticked, you may want to output these to a file.

Introduction
The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…

Creating an auto free TStringList
The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list.
In such cases, you have to…

In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB.
How Percona can help
Percona can help you determine if Percona Server for MongoDB is the right solution for …

In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment.
To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…