Количество в ListBox

@Pir12345 · Регистрация: 05.01.2014

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

Добрый день!
Есть выборка количества строк из ListBox так : Form1->ListBox1->Count.

Необходимо эту выборку (т.е. Form1->ListBox1->Count) сделать как переменную, для того, чтобы вставить ее в функцию и сделать переменной, зависящей от Edit2.

Делаю так:

C++
1
2
3
4
5
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
    if(Edit2->Text.Length()>0)
    Form1->ListBox1->Count = StrToInt(Edit2->Text);
}

Компилиться, но при вводе значения в Edit2- ошибка процессора (stop и т.д.)
Где ошибка?

@Pir12345 · 11.04.2014, 12:49 **[ТС]**

Вот вложение

@volvo · 11.04.2014, 12:55

В каком порядке и что надо делать, чтобы вообще хоть что-то отработало? У меня то ошибки записи файлов, то вообще непонятное поведение (просто висит форма и ничего не делает)

@Pir12345 · 11.04.2014, 12:58 **[ТС]**

1. Ведите числовую последовательность - 1234567
2. Выберите "Обратный"
3. Нажмите "Расчет"
Появятся две таблицы в листбоксах

Потом вводите число читаемых строк- 5040
Скорость маленькую ставите- например 20.
Нажимаете Запуск.

P.S. п.2- если выберите Прямой - все отработает корректно. Если обратный- ошибка описанная выше

@volvo · 11.04.2014, 13:15

Никогда не думай, что запись в корень системного диска разрешена всем. У меня она запрещена, поэтому пришлось переписывать INI-файл в другое место.

Теперь внимание, вопрос: когда работает ветка

C++
1
if(Form1->RadioButton1->Checked == true)

, у тебя в Form1->LB_Contents добавляются все all->Count значений. Когда работает ветка

C++
1
if(Form1->RadioButton2->Checked == true)

, то добавляются в этот же LB_Contents строки только во втором цикле, а это всего all->Count / 2 (в первом цикле в LB_Contents ничего не добавляется, заметь). А в самом начале присутствует строка

C++
1
 Form1->ListBox1->Count = all->Count;

. Так вот в чем вопрос: что делать виртуальному ListBox-у, если фактически в нем Count/2 элементов, а счетчик выставлен в Count? Правильно, на Count/2 + 1-вом выдавать ошибку.

@Pir12345 · 11.04.2014, 14:57 **[ТС]**

Да, согласен, не у всех в корень системного диска разрешена запись данных.

Что касается вопроса, получается я превысил вводимое и фактическое значение?
А как тогда быть? Дело в том, что ветка if(Form1->RadioButton2->Checked == true)- это обратная таблица от if(Form1->RadioButton1->Checked == true)- то есть будет иметь тоже все 5040 значений. Обратная, это значит, что последняя строчка становится первой, предпоследняя второй и первая- последней (относительно RadioButton1)

Добавлено через 1 час 32 минуты
UI, а если вы не поставите во 2 случае count / 2 - то неполучится перевернуть исходную таблицу

@volvo · 11.04.2014, 15:14

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

Обратная, это значит, что последняя строчка становится первой, предпоследняя второй и первая- последней

Это значит, что достаточно:

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
void __fastcall CalcThread::SyncCalcThread()
{
    Form1->LB_Contents->Clear();
    Form1->ListBox1->Count = all->Count;
 
    Form1->ListBox2->Items->Assign(all);
    String userData = Form1->LabeledEdit1->Text;
    Form1->ListBox1->Items->BeginUpdate();
 
    std::auto_ptr<TStringList>L(new TStringList);
 
    for (int i = 0; i < all->Count; i++)
    {
        L->Clear();
        String s = "";
        if (i == 0)
        {
            switch (Form1->RadioGroup1->ItemIndex)
            {
            case 0:
                all->Exchange(0, 0);
                break;
            case 1:
                all->Exchange(1, 0);
                break;
            case 2:
                all->Exchange(2, 0);
                break;
            case 3:
                all->Exchange(3, 0);
                break;
            case 4:
                all->Exchange(4, 0);
                break;
            case 5:
                all->Exchange(5, 0);
                break;
            }
        }
        L->CommaText = all->Strings[i];
        for (int j = 0; j < L->Count; j++)
            s += userData[StrToInt(L->Strings[j])];
        Form1->ListBox1->Items->Add(s);
        Form1->LB_Contents->Add(s);
    }
 
    if (Form1->RadioButton2->Checked == true)
    {
        // "Развернуть" LB_Contents
        int lc = Form1->LB_Contents->Count / 2;
        for (int i = 0; i < lc; i++)
        {
            Form1->LB_Contents->Exchange(i, Form1->LB_Contents->Count - 1 - i);
        }
    }
 
    Form1->ListBox1->Items->EndUpdate();
}

(после заполнения LB_Contents просто проверить, не выбрана ли опция "Обратный", и если выбрана - развернуть список)

@Pir12345 · 11.04.2014, 15:28 **[ТС]**

UI, если так записать как вы показали, то при обратном расчете выбивает в ошибку List Index out of bounds (0), нажимаю ОК, потом List Index out of bounds (1),...(2) и т.д.

@volvo · 11.04.2014, 15:37

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

при обратном расчете выбивает в ошибку

Правда? Где?

@SatanaXIII · 11.04.2014, 15:43

Не по теме:

Pir12345, а я то и смотрю что-то знакомое. Никак не вспомню.
Потоки и их корректное завершение
Как обеспечить синхронизацию двух событий, описанных в разных потоках методом execute()

@Pir12345 · 11.04.2014, 15:46 **[ТС]**

SatanaXIII добрый день!Да, тут используется это. Вроде вы говорили что на разные вопросы заводить разные темы

@SatanaXIII · 11.04.2014, 15:50

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

Вроде вы говорили что на разные вопросы заводить разные темы

Все верно.

@Pir12345 · 11.04.2014, 15:52 **[ТС]**

UI, да заработал вроде на моём компиляторе. Только еще между 52 и 53 строчкой вставляю код (как в прямом варианте) - он не срабатывает:

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
L->Clear();
        String s = "";
        if (i == 0)
        {
            switch (Form1->RadioGroup1->ItemIndex)
            {
            case 0:
                all->Exchange(0, 0);
                break;
            case 1:
                all->Exchange(1, 0);
                break;
            case 2:
                all->Exchange(2, 0);
                break;
            case 3:
                all->Exchange(3, 0);
                break;
            case 4:
                all->Exchange(4, 0);
                break;
            case 5:
                all->Exchange(5, 0);
                break;
            }

@demon_7 · 11.04.2014, 16:00

для надежности бы так сделать

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
L->Clear();
        String s = "";
        if (i == 0)
        {
            switch (Form1->RadioGroup1->ItemIndex)
            {
            case 0:
                all->Exchange(0, 0);
                break;
            case 1:
                all->Exchange(1, 0);
                break;
            case 2:
                all->Exchange(2, 0);
                break;
            case 3:
                all->Exchange(3, 0);
                break;
            case 4:
                all->Exchange(4, 0);
                break;
            case 5:
                all->Exchange(5, 0);
                break;
           default: ShowMessage("=(");
            }

@Pir12345 · 14.04.2014, 09:41 **[ТС]**

UI здравствуйте! Не срабатывает код радиокнопок, если добавить их в ваш код из 26 поста, вот так:

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
if (Form1->RadioButton2->Checked == true)
    {
        // "Развернуть" LB_Contents
        int lc = Form1->LB_Contents->Count / 2;
        for (int i = 0; i < lc; i++)
        {
 
        L->Clear();
        String s = "";
        if (i == 0)
        {
            switch (Form1->RadioGroup1->ItemIndex)
            {
            case 0:
                all->Exchange(0, 0);
                break;
            case 1:
                all->Exchange(1, 0);
                break;
            case 2:
                all->Exchange(2, 0);
                break;
            case 3:
                all->Exchange(3, 0);
                break;
            case 4:
                all->Exchange(4, 0);
                break;
            case 5:
                all->Exchange(5, 0);
                break;
            }
 
 
             }
            Form1->LB_Contents->Exchange(i, Form1->LB_Contents->Count - 1 - i);
        }
    }
 
    Form1->ListBox1->Items->EndUpdate();
}

То есть в ветку if (Form1->RadioButton2->Checked == true) нужно тоже добавить радиогроуп1, аналогично как в ветке if (Form1->RadioButton1->Checked == true). Где может быть ошибка?

@volvo · 14.04.2014, 10:48

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

если добавить их в ваш код из 26 поста, вот так:

Я больше на твои вопросы отвечать не буду. Я показал, как надо изменить код, чтобы добиться решения поставленной задачи. Ты опять все исковеркал, и теперь говоришь, что оно не работает. Ну, коверкай дальше, может быть, когда-нибудь тебе повезет, и ты решишь задачу, которая уже была решена в 26-ом посте...

@Pir12345 · 14.04.2014, 10:53 **[ТС]**

UI, в 26 посте задача решена, да. Большое спасибо! Просто в обратном режиме-radiobutton2 не работают 6 радиокнопок.

@Pir12345 · 02.05.2014, 15:42 **[ТС]**

UI, Здравствуйте!
Помогите пожалуйста. В выложенном выше проекте есть switch-и где в кейсах идет по 2-3 цвета, то есть исходные цвета разбиваются на составляющие. В итоге получается не 7 цветов (как заносится изначально в массив 7 чисел), а выводится на экран 12 цветов. Нужно каждый из этих уже 12 столбцов иметь возможность отключать через CheckBox ы (12 CheckBox ов). Как можно это сделать? Сложность в том, что по сути изначала 12 элементов в строке не формируется(их изначала 7)
Пробовал так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
case 1: { Form1->Color = (TColor)RGB(255,0,0);
                            if( RadioGroup2->ItemIndex == 1 )
                                Msg = (0x90 + (60 * 0x100) + (0x7f * 0x10000));
                            } break;
                    case 2: { if (CheckBox1->Checked == true)
                                                       
                                                        Form1->Color = (TColor)RGB(255,0,0);
                            Form1->Repaint();Sleep(MySleep);
                            Form1->Color = (TColor)RGB(255,0,0);
                            Form1->Repaint();Sleep(MySleep);
                            Form1->Color = (TColor)RGB(0,153,51);
                            if( RadioGroup2->ItemIndex == 1 )
                            Msg= (0x90 + (60 * 0x100) + (0x7f * 0x10000));
                            midiOutShortMsg(Out,Msg);
                            Msg= (0x90 + (60 * 0x100) + (0x7f * 0x10000));
                            midiOutShortMsg(Out,Msg);
                            Msg= (0x90 + (65 * 0x100) + (0x7f * 0x10000));
                            } break;

То есть перед каждым цветом ставил соотвественно

C++
1
if (CheckBoxN->Checked == true)

Работает, но нарушается порядок чтения цветов.

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

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@volvo Супер-модератор 33474 / 21573 / 8249 Регистрация: 22.10.2011 Сообщений: 37,027 Записей в блоге: 12
	11.04.2014, 12:55
	В каком порядке и что надо делать, чтобы вообще хоть что-то отработало? У меня то ошибки записи файлов, то вообще непонятное поведение (просто висит форма и ничего не делает) 0

@Pir12345 43 / 1 / 1 Регистрация: 05.01.2014 Сообщений: 337
	11.04.2014, 12:58 [ТС]
	1. Ведите числовую последовательность - 1234567 2. Выберите "Обратный" 3. Нажмите "Расчет" Появятся две таблицы в листбоксах Потом вводите число читаемых строк- 5040 Скорость маленькую ставите- например 20. Нажимаете Запуск. P.S. п.2- если выберите Прямой - все отработает корректно. Если обратный- ошибка описанная выше 0

@Pir12345 43 / 1 / 1 Регистрация: 05.01.2014 Сообщений: 337
	11.04.2014, 14:57 [ТС]
	Да, согласен, не у всех в корень системного диска разрешена запись данных. Что касается вопроса, получается я превысил вводимое и фактическое значение? А как тогда быть? Дело в том, что ветка if(Form1->RadioButton2->Checked == true)- это обратная таблица от if(Form1->RadioButton1->Checked == true)- то есть будет иметь тоже все 5040 значений. Обратная, это значит, что последняя строчка становится первой, предпоследняя второй и первая- последней (относительно RadioButton1) Добавлено через 1 час 32 минуты UI, а если вы не поставите во 2 случае count / 2 - то неполучится перевернуть исходную таблицу 0

@Pir12345 43 / 1 / 1 Регистрация: 05.01.2014 Сообщений: 337
	11.04.2014, 15:28 [ТС]
	UI, если так записать как вы показали, то при обратном расчете выбивает в ошибку List Index out of bounds (0), нажимаю ОК, потом List Index out of bounds (1),...(2) и т.д. 0

@SatanaXIII
	11.04.2014, 15:43
	Не по теме: Pir12345, а я то и смотрю что-то знакомое. Никак не вспомню. Потоки и их корректное завершение Как обеспечить синхронизацию двух событий, описанных в разных потоках методом execute() 0

@Pir12345 43 / 1 / 1 Регистрация: 05.01.2014 Сообщений: 337
	11.04.2014, 15:46 [ТС]
	SatanaXIII добрый день!Да, тут используется это. Вроде вы говорили что на разные вопросы заводить разные темы 0

@Pir12345 43 / 1 / 1 Регистрация: 05.01.2014 Сообщений: 337
	14.04.2014, 10:53 [ТС]
	UI, в 26 посте задача решена, да. Большое спасибо! Просто в обратном режиме-radiobutton2 не работают 6 радиокнопок. 0