[Erilar]

На форме есть несколько CheckBox-ов. Как при нажатии на кнопку добавить в ЛистБокс только те CheckBox, которые отмечены?

[lmikle]

Сообщение от Erilar

На форме есть несколько CheckBox-ов. Как при нажатии на кнопку добавить в ЛистБокс только те CheckBox, которые отмечены?

Код:

var
  I : Integer;
begin
  For I := 0 To ComponentCount-1 Do
    If Components[i] Is TCheckBox Then
      If (Component[i] As TCheckBox).Checked Then
         ListBox1.Items.Add((Components[i] As TCheckBox).Caption);

[Erilar]

Сообщение от lmikle

Код:

var
  I : Integer;
begin
  For I := 0 To ComponentCount-1 Do
    If Components[i] Is TCheckBox Then
      If (Component[i] As TCheckBox).Checked Then
         ListBox1.Items.Add((Components[i] As TCheckBox).Caption);

Спасибо. Очень помогло.