Отобразить в Label значение в зависимости от выбранного ItemIndex в ComboBox

@Kir12 · Регистрация: 01.12.2015

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

Всем здравствуйте)
Прошу помощи, пожалуйста)
Имеется combobox и item прописаны вот так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm9::FormShow(TObject *Sender)
{
int t=0; while(t<9) sl[t++]=new TStringList;
sl[0]->CommaText = "Медведь Bosch Тундра Тюмень Зверь Аком Multlu Varta Deka Topla";
sl[1]->CommaText = "1JZ 1JZ-GTE "1JZ-GTE WWTI" "2JZ-GTE WWTI" GA15DE 406(Волга) RB25 RB26 4FE 2LTE";
sl[2]->CommaText = ""Фильтр воздушный" "Фильтр топливный" "Фильтр салонный" "Уплотнитель резинки" "Тормозные колодки" "Диск сцепления" "Нулевик HKS" Свечи Хомуты";
sl[3]->CommaText = ""Резина good year R12" "Резина brigestone R14" "Разварки R14" "Резина Евро519 R15" "Резина Snow-Max R16" "Резина Sport3 R18" "Литьё vossen R18" "Литьё TRD R16" "Литьё Lowenhart"  "Литьё Mayhem" ";
sl[4]->CommaText = ""Arexons 7515" "Карандаш LIQUI MOLY 1900" "Очиститель LAVR NEXT LN5003" "Вода дистиллированная PINGO 85010-1" "Паста для очистки рук FILL INN FL064" "Защита и блеск покрышек KANGAROO 320454" "очиститель интерьера LIQUI MOLY 7629" "Освежитель кондиционера" "Universal автошампунь" "Наношампунь для очистки окон" "Антизапотиватель Antifog"";
sl[5]->CommaText = "Лукойл Mobil Elf Toyota Bp Motul LiquiMoly Castrol Shell Nissan ";
sl[6]->CommaText = ""Суппорт NSK" "Тормозные шланги армированные HPB" "Тормозной диск HPB" "Скобы суппортов HPB" "Колодки Brembo" "Вентилируемые тормоза Brembo" "Комплект тормозов GTR" "Brembo Тормозной диск" "TRD Торзные шланги" "TRD Скобы суппортов TRD" ";
sl[7]->CommaText = ""Антифриз BS" "Антифриз Green" "Антифриз RED" "Герметик радиатора BS" "Radiator flash" "Stop leak" "Антифриз Blue LM-3959" "очиститель радиатора" "Промывка системы охлаждения ZK" "Промывка радиатора HKS"";
sl[8]->CommaText = ""BN Sport комплект бамперов" "Vertex накладки" "Vossen накладки" "Multicam задний бампер" "Jump передний бампер" "I robot передний бампер" "I robot задний бампер" "GTR комплект накладок" "Комплект накладок TRD" "TRD бампер" ";
}

нужно чтобы при выборе item в combobox показалась label т.е цена
Например выбрали item медведь из sl[0] и он показал цену медведь,
а если выбираем уже другую, то показывает другую цену
Пробовал вот так ничего не получается(

C++
1
ComboBox4->itemindex0->lable1->visible->true;

нужно каждому item присвоить свой label но тут более 50 записей т.е нужно 50 label добавлять? или можно проще сделать? помогите пожалуйста...

@nick42 · 08.12.2015, 11:23

У вас, мне кажется, весьма своеобразный опыт общения с Builder'ом. Я думаю, будет лучше, если вы просто будете ставить очень конкретные вопросы по своей проблематике. Я не много понял из написанного, но...
- содержимое метки (Label) не статично; элементарно меняется присвоением ей нового значения из какого-либо списка фраз:

C++
1
   Label4->Caption = StringList24->Strings[ComboBox3->ItemIndex];

Добавлено через 2 минуты
Если вам удобен такой способ (примеры). Я просто по другому объяснять не умею, может другие... .

mimicria · 08.12.2015, 11:29

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

Имеется combobox и item прописаны вот так

В тексте ни слова про комбобокс, тут просто массив списков строк.
Кроме того, заданы неверно, даже на форуме подсветка кода показывает ошибки с лишними кавычками "

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

показалась label т.е цена

А где сама цена хранится?

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

Пробовал вот так ничего не получается

Ну сами названия в Комбобокс можно перенести так

C++
1
ComboBox1->Items->AddStrings(sl[0]);

@nick42 · 08.12.2015, 11:35

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

даже на форуме подсветка кода показывает ошибки с лишними кавычками

mimicria, это особенности вэб-редактора. Там в исходном виде обратная косая с кавычками (и так и надо), а после "обработки" только кавычки остаются; чтоб вместе с косой - нужно двойной обратный слэш применять. Я на это уже "наступил"... .

@volvo · 08.12.2015, 11:39

Kir12, Смотри:

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
class TF : public TObject
{
    double FValue;
 
    double __fastcall GetValue()
    {
        return FValue;
    }
 
public:
    TF(double value) : FValue(value)
    {
    }
    __property double Value = {read = GetValue};
};
 
void FillList(TStringList *lst, String s)
{
    TStringList *t = new TStringList;
    t->Delimiter = ' ';
    t->StrictDelimiter = true;
    t->DelimitedText = s;
    for (int i = 0; i < t->Count; i++)
        lst->AddObject(t->Names[i], new TF(StrToFloat(t->ValueFromIndex[i])));
    delete t;
}

+

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm9::FormShow(TObject *Sender)
{
    int t = 0;
    while (t < 9)
        sl[t++] = new TStringList;
    FillList(sl[0], L"Медведь=200.5 Bosch=300.75 Тундра=250.7 Тюмень=220.5 Зверь=300.3 Аком=200.3 Multlu=100.6 Varta=180.4 Deka=209.35 Topla=190.99");
    // остальные аналогично
    ComboBox1->Items->Assign(sl[0]);
}
 
// и по OnChange комбобокса:
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    TComboBox *cb = static_cast<TComboBox*>(Sender);
    Label1->Caption = dynamic_cast<TF*>(cb->Items->Objects[cb->ItemIndex])->Value;
}

Главное - не забывать удалять содержимое StringList-ов правильно.

@nick42 · 08.12.2015, 11:43

volvo, а зачем его удалять? У него же стринг-листы - это такая местная "база данных".

@volvo · 08.12.2015, 11:48

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

а зачем его удалять?

Затем что если что-то было создано - оно должно быть удалено. Это не C# с его сборщиком мусора.

@Kir12 · 08.12.2015, 12:25 **[ТС]**

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

class TF : public TObject
{
* * double FValue;
double __fastcall GetValue()
* * {
* * * * return FValue;
* * }
public:
* * TF(double value) : FValue(value)
* * {
* * }
* * __property double Value = {read = GetValue};
};

Я в unit.h вот этот код добавил вот так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
public:     // User declarations
        __fastcall TForm9(TComponent* Owner);
        class TF : public TObject
{
    double FValue;
 
    double __fastcall GetValue()
    {
        return FValue;
    }
 
public:
    TF(double value) : FValue(value)
    {
    }
    __property double Value = {read = GetValue};
};
};

а вот этот

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

void FillList(TStringList *lst, String s)
{
* * TStringList *t = new TStringList;
* * t->Delimiter = ' ';
* * t->StrictDelimiter = true;
* * t->DelimitedText = s;
* * for (int i = 0; i < t->Count; i++)
* * * * lst->AddObject(t->Names[i], new TF(StrToFloat(t->ValueFromIndex[i])));
* * delete t;
}

вот сюда

C++
1
2
3
4
5
6
7
8
9
10
11
 void __FillList(TStringList *lst, String s);
{
    TStringList *t = new TStringList;
    t->Delimiter = ' ';
    t->StrictDelimiter = true;
    t->DelimitedText = s;
    for (int i = 0; i < t->Count; i++)
        lst->AddObject(t->Names[i], new TF(StrToFloat(t->ValueFromIndex[i])));
    delete t;
}
private:    // User declarations

а он ругается(

@volvo · 08.12.2015, 12:32

Ну, и зачем класс внутрь класса запихивать? Вынеси его наружу:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
class TF : public TObject
{
    double FValue;
 
    double __fastcall GetValue()
    {
        return FValue;
    }
 
public:
    TF(double value) : FValue(value) {}
    __property double Value = {read = GetValue};
};
 
class TForm9 : public TForm
// ...

, и никогда не имей привычки что-то добавлять в published-секцию класса. Там рулит Билдер:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// ...
private: // User declarations
 
    void __fastcall FillList(TStringList *lst, String s)
    {
        TStringList *t = new TStringList;
        t->Delimiter = ' ';
        t->StrictDelimiter = true;
        t->DelimitedText = s;
        for (int i = 0; i < t->Count; i++)
        {
            lst->AddObject(t->Names[i],
                new TF(StrToFloat(t->ValueFromIndex[i])));
        }
        delete t;
    }
 
public: // User declarations
// ...

, и никто не ругается

@Kir12 · 08.12.2015, 12:47 **[ТС]**

Теперь ругается на эту строчку, сделал как вы показали выше

C++
1
t->StrictDelimiter = true;

Только вот странно то что вроде как вы объявиле же его t в этой строчке

C++
1
TStringList *t = new TStringList;

почему ругается или я что то не правильно понимаю?(

Добавлено через 2 минуты
volvo, volvo,

@Kir12 · 08.12.2015, 12:56 **[ТС]**

Вот эта вот ошибка(

@volvo · 08.12.2015, 13:20

Опять Builder 6? Нет там этого свойства, если без него - тогда:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
    void FillList(TStringList *lst, String s)
    {
        TStringList *t = new TStringList;
        t->Delimiter = ' ';
        t->DelimitedText = s;
        int c = t->Count;
        for (int i = 0; i < t->Count; i++)
        {
            lst->AddObject(StringReplace(t->Names[i], "_", " ", TReplaceFlags() << rfReplaceAll),
                new TF(StrToFloat(t->ValueFromIndex[i])));
        }
        delete t;
    }

, и в строке заменять все пробелы на символы подчеркивания, то есть, не так:

C++
1
2
    FillList(sl[0],
        L"Медведь=200.5 Bosch=300.75 \"Тундра Тундра\"=250.7 Тюмень=220.5 Зверь=300.3 Аком=200.3 Multlu=100.6 Varta=180.4 Deka=209.35 Topla=190.99");

, а вот так:

C++
1
2
    FillList(sl[0],
        L"Медведь=200.5 Bosch=300.75 Тундра_Тундра=250.7 Тюмень=220.5 Зверь=300.3 Аком=200.3 Multlu=100.6 Varta=180.4 Deka=209.35 Topla=190.99");

@Kir12 · 08.12.2015, 13:35 **[ТС]**

volvo,
теперь вот эта ошибка

@volvo · 08.12.2015, 13:53

Ну, значит, не судьба тебе эту функцию как метод класса использовать. Я ее изначально же не просто так написал отдельно, правда? Вот вынеси ее наружу, и все будет нормально

@nick42 · 08.12.2015, 14:01

t->ValueFromUndex[i] === t->Values[i]

может так?

@Kir12 · 08.12.2015, 14:07 **[ТС]**

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

t->ValueFromUndex[i] === t->Values[i]

пишет ValueFromUndex is not a member of "TStringList"

@nick42 · 08.12.2015, 14:20

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

может так?

- нет, это я ступил...

Добавлено через 55 секунд

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

ValueFromIndex

да нет там такой точно функции в 6-м.

Добавлено через 12 минут
Kir12, этим

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

t->ValueFromIndex[i] === t->Values[i]

я хотел сказать, что аналогом функции ValueFromIndex является другая (в 6-й версии). Можно её заменить на

C++
1
t->Values[t->Names[i]]

@Kir12 · 08.12.2015, 14:31 **[ТС]**

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

t->Values[t->Names[i]]

Спасибо
Но он также ругается я не пойму куда эту функцию вытащить

C++
1
new TF(StrToFloat(t->Values[t->Names[i])));

точнее сказать не пойму куда её вынести наружу если за private ставить то не получается там он не принимает её(
а если хоть куда нибудь убрать вот эту строчку

C++
1
new TF(StrToFloat(t->Values[t->Names[i])));

сразу же начинает на эту строчку ругаться

C++
1
lst->AddObject(StringReplace(t->Names[i], "_", " ", TReplaceFlags() << rfReplaceAll),

@nick42 · 08.12.2015, 15:13

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

сразу же начинает на эту строчку ругаться

А вы с синтаксисом в ладах? Если строчка не оканчивается "точкой с запятой" или фигурной скобкой, то следующая - её продолжение. И вся эта комбинированная строчка - привязка объекта с параллельной подменой символов подчеркивания в строке пробелами.

@Kir12 · 08.12.2015, 16:10 **[ТС]**

Я вот так пробовал

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
  void FillList(TStringList *lst, String s)
    {
new TF(StrToFloat(t->ValueFromIndex[i])))
        TStringList *t = new TStringList;
        t->Delimiter = ' ';
        t->DelimitedText = s;
        int c = t->Count;
        for (int i = 0; i < t->Count; i++)
        {
            lst->AddObject(StringReplace(t->Names[i], "_", " ", TReplaceFlags() << rfReplaceAll);
        }
        delete t;
    }

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  void FillList(TStringList *lst, String s)
    {
 
        TStringList *t = new TStringList;
        t->Delimiter = ' ';
        t->DelimitedText = s;
        int c = t->Count;
        for (int i = 0; i < t->Count; i++)
new TF(StrToFloat(t->ValueFromIndex[i])))
        {
            lst->AddObject(StringReplace(t->Names[i], "_", " ", TReplaceFlags() << rfReplaceAll);
        }
        delete t;
    }

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
class TF : public TObject
new TF(StrToFloat(t->ValueFromIndex[i])))
 
{
 
double FValue;
double __fastcall GetValue()
{
return FValue;
}
public:
 
TF(double value) : FValue(value) {}
__property double Value = {read = GetValue};
};
 
class TForm9 : public TForm
{

не как не получается

Добавлено через 1 минуту
nick42,

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	08.12.2015, 11:43
	volvo, а зачем его удалять? У него же стринг-листы - это такая местная "база данных". 1

@Kir12 1 / 1 / 0 Регистрация: 01.12.2015 Сообщений: 37
	08.12.2015, 12:56 [ТС]
	Вот эта вот ошибка( Миниатюры 0

@Kir12 1 / 1 / 0 Регистрация: 01.12.2015 Сообщений: 37
	08.12.2015, 13:35 [ТС]
	volvo, теперь вот эта ошибка Миниатюры 0

@volvo Супер-модератор 33411 / 21521 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 12
	08.12.2015, 13:53
	Ну, значит, не судьба тебе эту функцию как метод класса использовать. Я ее изначально же не просто так написал отдельно, правда? Вот вынеси ее наружу, и все будет нормально 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	08.12.2015, 14:01
	t->ValueFromUndex[i] === t->Values[i] может так? 1