Алгоритм И CheckListBox

@V.V.P.Net · Регистрация: 14.04.2010

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

Уже 3 часа ломаю голову, не могу решить задачу.
Есть три CheckListBox в них присутствуют данные которые нужно вначале выделить а потом по нажатие кнопки сравнить с таблицей StringGrid1 и записать только те данные, которые в соответствии выделены в CheckListBox1,2,3 в таблицу StringGrid2.
Проблема заключается в том, что CheckListBox1,2,3 имею разные размеры и организовать поиск по соответствию в вложенном цикле не получается.
Пример мучений

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TFrame3::BitBtn1Click(TObject *Sender)
{
int i, j, k1=1;
    for ( i = 0; i <= CheckListBox1->Items->Count-1; i++) {
    if (CheckListBox1->Checked[i]){
     for (j = 1; j <= icout; j++) {
      if (CheckListBox1->Items->Strings[i] == StringGrid1->Cells[0][j]) {
         StringGrid2->Cells[0][k1]=StringGrid1->Cells[0][j];
      k1++;
      }
     }
    }
 }
 
}

это тока для одного CheckListBox и то не получатся в таблицу StringGrid2 выводятся всегда тока 4 элемента и тока те которые были выбраны первым. хотя в таблице у меня очень много.

@V.V.P.Net · 26.07.2012, 13:13 **[ТС]**

Нашёл в чем ошибка, она было банальная в StringGrid2 количество строк = 4

вот я жрал над собой

@Drygba · 26.07.2012, 13:37

Не по теме:

Сообщение от V.V.P.Net

жрал над собой

:jokingly:

@V.V.P.Net · 26.07.2012, 14:23 **[ТС]**

Не по теме:

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

Не по теме:

:jokingly:

там буквы перепутаны =) такое иногда случается =)

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

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
void __fastcall TFrame3::BitBtn1Click(TObject *Sender)
{
int i,i1,i2, j, k1=1;
 
    for ( i = 0; i <= CheckListBox1->Items->Count-1; i++) {
     for (i1 = 0; i1 < CheckListBox2->Items->Count-1; i1++) {
      for (i2 = 0; i2 < CheckListBox3->Items->Count-1; i2++) {
        if ((CheckListBox1->Checked[i])&&(CheckListBox2->Checked[i1])
        &&(CheckListBox3->Checked[i2])){
            for (j = 1; j <= icout; j++) {
      if ((CheckListBox1->Items->Strings[i] == StringGrid1->Cells[0][j])&&
      (CheckListBox2->Items->Strings[i1] == StringGrid1->Cells[1][j])&&
      (CheckListBox3->Items->Strings[i2] == StringGrid1->Cells[2][j])) {
         StringGrid2->Cells[0][k1]=StringGrid1->Cells[0][j];
         StringGrid2->Cells[1][k1]=StringGrid1->Cells[1][j];
         StringGrid2->Cells[2][k1]=StringGrid1->Cells[2][j];
      k1++;
      }
     }
    }
   }
  }
 }//Здесь циклы закончились
 StringGrid2->RowCount = k1+1;
}

где ошибка? выделаю нужные элементы в чекбоксах, а проход по циклам не идёт....

@volvo · 26.07.2012, 14:47

А что, вот так сделать - совсем нельзя (sgSource - откуда берем данные, sgDest - куда переносим, а cb1 .. cb3 - те самые три чеклистбокса):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    int ix = sgDest->FixedRows;
    for(int i = sgSource->FixedRows; i < sgSource->RowCount; i++)
    {
        bool ok = true;
        for(int j = 0; j < 3; j++)
        {
            TCheckListBox *cb = dynamic_cast<TCheckListBox*>(FindComponent("cb" + IntToStr(j+1)));
            ok &= cb->Checked[cb->Items->IndexOf(sgSource->Cells[j][i])];
        }
 
        if(ok)
        {
            sgDest->Rows[ix++]->Assign(sgSource->Rows[i]);
        }
    }

? Добавляй еще хоть 10 листбоксов - в коде изменится одно-единственное число.

@V.V.P.Net · 26.07.2012, 15:13 **[ТС]**

Я что-то не чего не понял в вашем коде, не явно, что происходит там. Поэтому поменяв sgSource и sgDest на свои тупо copy/paste, при нажатии на кнопку получил

@volvo · 26.07.2012, 15:54

Тупо Copy+Paste не надо, ты наверняка забыл поменять "cb" на свои "CheckListBox". Добавил проверку на пустоту очередной строки первого грида:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    int ix = sgDest->FixedRows;
    for(int i = sgSource->FixedRows; i < sgSource->RowCount; i++)
    {
        if(!sgSource->Cells[0][i].IsEmpty())
        {
            bool ok = true;
            for(int j = 0; j < 3; j++)
            {
                TCheckListBox *cb = dynamic_cast<TCheckListBox*>(FindComponent("cb" + IntToStr(j+1)));
                ok &= cb->Checked[cb->Items->IndexOf(sgSource->Cells[j][i])];
 
            }
 
            if(ok)
            {
                sgDest->Rows[ix++]->Assign(sgSource->Rows[i]);
            }
        }
    }

, результат - на скрине, вылетов не обнаружено.

@V.V.P.Net · 26.07.2012, 16:22 **[ТС]**

Спасибо большое, да работает на первый взгляд, "cb" забыл. вообще я подумал что это какаято переменная хранящая в себе то самое "CheckListBox". С dynamic_cast я не работал и не знаю, что это такое. а проверка кстате нужна. Ещё теперь осталось sgDest отсортировать по 4 столбцу (по возрастанию)

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@V.V.P.Net 11 / 11 / 1 Регистрация: 14.04.2010 Сообщений: 73
	26.07.2012, 13:13 [ТС]
	Нашёл в чем ошибка, она было банальная в StringGrid2 количество строк = 4 вот я жрал над собой 0

@V.V.P.Net 11 / 11 / 1 Регистрация: 14.04.2010 Сообщений: 73
	26.07.2012, 15:13 [ТС]
	Я что-то не чего не понял в вашем коде, не явно, что происходит там. Поэтому поменяв sgSource и sgDest на свои тупо copy/paste, при нажатии на кнопку получил Миниатюры 0

@V.V.P.Net 11 / 11 / 1 Регистрация: 14.04.2010 Сообщений: 73
	26.07.2012, 16:22 [ТС]
	Спасибо большое, да работает на первый взгляд, "cb" забыл. вообще я подумал что это какаято переменная хранящая в себе то самое "CheckListBox". С dynamic_cast я не работал и не знаю, что это такое. а проверка кстате нужна. Ещё теперь осталось sgDest отсортировать по 4 столбцу (по возрастанию) 0

Алгоритм И CheckListBox

Решение