Поиск Checked CheckBox в цикле

@vvspl · Регистрация: 18.07.2011

Студворк — интернет-сервис помощи студентам

Пробую найти Checked CheckBox циклом - выдаёт ошибку Access Violation at adress... Read of adress...
Использую 2 способа-ошибка-одна:

1 способ:

C++
1
2
3
4
5
6
7
8
9
String a="TCheckBox",b;
for (int i=0; i<ScrollBox1->ComponentCount;i++)
  {
   b=ScrollBox1->Components[i]->ClassName();
   if (a==b) {
   if(((TCheckBox*)(Components[i]))->Checked==true)
   ShowMessage("Hallo!");
   }
   }

2 способ:

C++
1
2
3
4
5
6
7
8
TCheckBox* check = new TCheckBox(Form1);
 String s="";
 String a="TCheckBox";
   for(int i=0;i<ScrollBox1->ComponentCount;i++) {
   String b=ScrollBox1->Components[i]->ClassName();
   if (a==b){
   check=(TCheckBox*)(Components[i]);
   if (check->Checked)  ShowMessage(check->Name);

Причём в пошаговой отладке всегда спотыкается на 2ом CheckBox-e. (А на Checked CheckBox - никакой реакции)

@nikitapel · 29.09.2011, 21:11

Почитай вот тут думаю разберешься!
Циклическое создание кнопок на форме

Добавлено через 9 минут

C++
1
2
3
4
5
6
7
8
9
10
  TCheckBox *CheckBox;
  for (int i = 0; i < 10; i++) {
    CheckBox=new TCheckBox(this);
    CheckBox->Parent=this;
    CheckBox->Height=30;    // создаем
    CheckBox->Width=190;
    CheckBox->Top=40*i+10;
    CheckBox->Left=10;
    CheckBox->Caption="=)_"+IntToStr(i+1);
  }

C++
1
2
3
for ( int i = 0; i < this->ComponentCount; i++ )
if ( ((TCheckBox *) this->Components[i])->Checked == true)
 ShowMessage(i);

@vvspl · 29.09.2011, 21:20 **[ТС]**

ОЧЕНЬ ВАЖНО!!! ВСЁ, что написано мной выше - отлично подходит для статических объектов (CheckBox). У меня случай с динамическими Чекбоксами. Кто знает - в чём может быть разница????

@nick42 · 30.09.2011, 19:13

Мне кажется, правильнее работать с контролами, а не с компонентами. Например так:

C++
1
2
3
4
5
     for(int i=0;i<ScrollBox1->ControlCount;i++) {
      if (String(Form1->ScrollBox1->Controls[i]->ClassName())=="TCheckBox")
        if (((TCheckBox *)ScrollBox1->Controls[i])->Checked)
          Label1->Caption = Label1->Caption + IntToStr(i);
     }

cpp_developer · 30.09.2011, 19:47

это конечно ... если родитель у контролов один ...

@Gremlin · 30.09.2011, 20:42

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

это конечно ... если родитель у контролов один ...

верно, а если Родители у них разные, например у
CheckBox1->Parent ==> Form1
a
CheckBox2->Parent ==> Form2 или Panel или ScrollB...

cpp_developer · 30.09.2011, 21:18

тогда компоненты искать, а не контролы

@Gremlin · 30.09.2011, 21:31

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void __fastcall GetAllCB(TWinControl *Sender); // ÐÅÊÓÐÑÈß!!!
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall GetAllCB(TWinControl *Sender) // ÐÅÊÓÐÑÈß!!!
{
    TCheckBox *tmp_CB;
    for(int i = 0; i < Sender->ComponentCount; i++)
    {
        tmp_CB = dynamic_cast<TCheckBox*>(Sender-> Components[i] );
        if(tmp_CB)
        {
            Form1->Caption = Form1->Caption + IntToStr(tmp_CB->Checked); // Ñþäà çíà÷åíèÿ!!!
        }
    }
 
    for(int i = 0; i < Sender->ControlCount; i++)
    {
        GetAllCB((TWinControl *)Sender->Controls[i]); // ÐÅÊÓÐÑÈß!!!
    }
 
    tmp_CB = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form1->Caption = ""; // ñþäà áóäåì âûâîäèòü çíà÷åíèÿ
    GetAllCB(this);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    // íó òóò ìû äèíàìè÷åñêè ñîçäàåì
    TCheckBox *CheckBox;
    int myrand;
    for(int i = 0; i < 5; i++)
    {
        myrand = rand()%3;
        if(myrand == 0)
        {
            CheckBox = new TCheckBox(Form1);
            CheckBox->Parent = Form1;
        }
        if(myrand == 1)
        {
            CheckBox = new TCheckBox(ScrollBox1);
            CheckBox->Parent = ScrollBox1;
        }
        if(myrand == 2)
        {
            CheckBox = new TCheckBox(ScrollBox2);
            CheckBox->Parent = ScrollBox2;
        }
        CheckBox->Height = 30;
        CheckBox->Width = 190;
        CheckBox->Top = rand()%100;
        CheckBox->Left = rand()%100;
        CheckBox->Caption = Time();
 
        CheckBox->Checked = rand()%2;
    }
}
//---------------------------------------------------------------------------

@nick42 · 30.09.2011, 21:31

Тогда подскажите КАК сделать ScrollBox родителем CheckBox`ов; другими словами - сколько бы CheckBox`ов я ни размещал на ScrollBox`е, счётчик компонентов у него на нуле.
И непонятно, почему товарищ не воспользовался CheckListBox`ом, - это вроде более подходящая штука; манипулировать Items, а не создавать чекбоксы... .

cpp_developer · 30.09.2011, 21:59

ага... а не влазяет - тогда CheckListBox на ScrollBox

@vvspl · 01.10.2011, 23:37 **[ТС]**

Я так рад таким обильным вниманием к моей теме!)) Всем огромное спасибо! Никогда не слышал о <dinamic_cast>, - но попробовал-работает. Также получилось через Components[i], но посложнее показалось. Очень понравился метод FindComponent() - мне он показался самым лёгким). С компонентом ListBox не сталкивался. Что такое TWinControl и с чем его едят не знаю))

cpp_developer · 01.10.2011, 23:50

С компонентом ListBox не сталкивался. Что такое TWinControl и с чем его едят не знаю))

вот этим я я бы не хвастал, а и тихонько взял - и почитал, а то в следующий раз пошлют ... читать ...

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@vvspl 1 / 1 / 1 Регистрация: 18.07.2011 Сообщений: 90
	29.09.2011, 21:20 [ТС]
	ОЧЕНЬ ВАЖНО!!! ВСЁ, что написано мной выше - отлично подходит для статических объектов (CheckBox). У меня случай с динамическими Чекбоксами. Кто знает - в чём может быть разница???? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	30.09.2011, 19:47
	это конечно ... если родитель у контролов один ... 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	30.09.2011, 21:18
	тогда компоненты искать, а не контролы 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	30.09.2011, 21:31
	Тогда подскажите КАК сделать ScrollBox родителем CheckBox`ов; другими словами - сколько бы CheckBox`ов я ни размещал на ScrollBox`е, счётчик компонентов у него на нуле. И непонятно, почему товарищ не воспользовался CheckListBox`ом, - это вроде более подходящая штука; манипулировать Items, а не создавать чекбоксы... . 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	30.09.2011, 21:59
	ага... а не влазяет - тогда CheckListBox на ScrollBox 1

@vvspl 1 / 1 / 1 Регистрация: 18.07.2011 Сообщений: 90
	01.10.2011, 23:37 [ТС]
	Я так рад таким обильным вниманием к моей теме!)) Всем огромное спасибо! Никогда не слышал о <dinamic_cast>, - но попробовал-работает. Также получилось через Components[i], но посложнее показалось. Очень понравился метод FindComponent() - мне он показался самым лёгким). С компонентом ListBox не сталкивался. Что такое TWinControl и с чем его едят не знаю)) 0