Combobox

[NextGen25]

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

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 присвоить свой label но тут более 50 записей т.е нужно 50 label добавлять? или можно проще сделать? помогите пожалуйста...

[Stilet]

Лучше распиши поподробнее что нужно.
И почему бы этот текст не хранить по-другому.

[NextGen25]

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

[come-on]

Проще - база данных.

[NextGen25]

не понял..........

[Stilet]

не понял..........

Вместо TStringList хранить данные с Базе Данных.

[NextGen25]

переделывать долго наверное, ну так кто нибудь знает, как к каждому item присвоить lable?)

[evg_m]

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

Нужно-где-то хранить (TstringList | TstringList.Objects | TCombobox.items.Objects | файл данных | база данных | ... ) эти цены.
Нужно отслеживать изменения нужного Combobox-a. (events --> OnChange )
Узнавать новую(текущую) позицию j:=combobox.ItemIndex.
В соответствии с тек. позицией определять цену (из места хранения ВСЕХ цен) price:=integer(TcomboBox.Items.Obje cts[j])
Выводить определенную цену в указанный объект. Label.Caption:=inttostr(price);