Удалить строчку ListBox

@felicita_091 · Регистрация: 24.10.2012

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

Не могу удалить строчку ListBox, мне надо чтоб при нажатии комбобокса и листбох строчку выбранную удалить, у меня только комбобокс удаляется вместе с листбох, и не могу добавить новую строчку комбобокс..Помогите пожалуйста

@Lelik-pahan · 28.04.2013, 15:41

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

мне надо чтоб при нажатии комбобокса и листбох строчку выбранную удалить, у меня только комбобокс удаляется вместе с листбох, и не могу добавить новую строчку комбобокс..

Что за набор слов? тут есть какой-то смысл?

C++
1
2
    ListBox1->Items->Delete(0);  //удаляет строку с индексом 0 (первую)
    ListBox1->Items->Delete(ListBox1->Items->IndexOf("абв"));  //удаляет строку, в которой написано "абв"

@felicita_091 · 28.04.2013, 15:52 **[ТС]**

Lelik-pahan, пожалуйста посмотрите проект и поймете!!! У меня так получается, когда нажимаю на кнопку удалить, например, Пушкин(комбобокс)-Я Вас Любил(1), Онегин(2), Бабушка(3)(1-3листбох), при выборе Онегин удаляется только онегин, а не польностью комбобокс Пушкин

@Lelik-pahan · 28.04.2013, 16:36

felicita_091, проект посмотрел, но честно не понял что должно происходить...

Добавлено через 14 минут
исходя из разъяснений, полученный в личку:

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
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{                    //  Удалить
   String Str;
   if (ListBox1->ItemIndex<0)
   {  //добавил эту скобку
     if (MessageBox(0,"Удалить автора?","",MB_OKCANCEL)==IDOK )
   {
   if (pIni) {
     int ob1 = pIni->ReadInteger("CONF","Objem",0), ob2=ob1;
     for (int i=0; i<ob1; i++)  {
       Str=pIni->ReadString("LINE"+IntToStr(i+1),"Avtor","") ;
       if (Str==ComboBox1->Text) {
         for ( ;i<(ob1-1);i++) {
           Str=pIni->ReadString("LINE"+IntToStr(i+2),"Avtor","") ;
           pIni->WriteString("LINE"+IntToStr(i+1),"Avtor",Str);
           Str=pIni->ReadString("LINE"+IntToStr(i+2),"List","") ;
           pIni->WriteString("LINE"+IntToStr(i+1),"List",Str);
           Str=pIni->ReadString("LINE"+IntToStr(i+2),"File","") ;
           pIni->WriteString("LINE"+IntToStr(i+1),"File",Str);
         }
         pIni->EraseSection("LINE"+IntToStr(ob1));
         ob2 -=1;
         pIni->WriteInteger("CONF","Objem",ob2);
         break;
       }
     }
     pIni->UpdateFile();
     delete pIni;
   }
     FormShow(0);
  }
  }  //добавил эту скобку
  else  //в листбоксе выбрано произведение
  {
    if (MessageBox(0,"Удалить произведение?","",MB_OKCANCEL)==IDOK )
        ListBox1->Items->Delete(ListBox1->ItemIndex);
  }
}

Добавил две фигурные скобки и блок else.
Выравниванием кода заниматься не стал )

@felicita_091 · 28.04.2013, 16:56 **[ТС]**

Lelik-pahan, а еще добавить, когда нажимаю на добавление, ввести строчку и не добавляется новая строка в combobox

@Lelik-pahan · 28.04.2013, 17:49

конечно не добавляется

C++
1
2
3
4
else      // новый автор
     {
 
     }

если у тебя там ни строчки кода не написано, то ничего и не случится

C++
1
2
ComboBox1->Items->Add(eAvtor);
ListBox1->Items->Add(eList);

А уж чего там делать с именем файла - не знаю, в системе хранения данных этой программы разбираться нет желания.

@felicita_091 · 28.04.2013, 19:47 **[ТС]**

Lelik-pahan, при удалении у меня не получается, нажимаю на строчку листбокс, а кнопка удалить не работает

@Lelik-pahan · 28.04.2013, 20:58

а какой код у вас сейчас на кнопке удалить?

@felicita_091 · 28.04.2013, 21:05 **[ТС]**

Lelik-pahan,

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
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{                    //  Удалить
   String Str;
   if (ListBox1->ItemIndex<0)
     if (MessageBox(0,"Удалить автора?","",MB_OKCANCEL)==IDOK )
   {
   if (pIni) {
     int ob1 = pIni->ReadInteger("CONF","Objem",0), ob2=ob1;
     for (int i=0; i<ob1; i++)  {
       Str=pIni->ReadString("LINE"+IntToStr(i+1),"Avtor","") ;
       if (Str==ComboBox1->Text) {
         for ( ;i<(ob1-1);i++) {
           Str=pIni->ReadString("LINE"+IntToStr(i+2),"Avtor","") ;
           pIni->WriteString("LINE"+IntToStr(i+1),"Avtor",Str);
           Str=pIni->ReadString("LINE"+IntToStr(i+2),"List","") ;
           pIni->WriteString("LINE"+IntToStr(i+1),"List",Str);
           Str=pIni->ReadString("LINE"+IntToStr(i+2),"File","") ;
           pIni->WriteString("LINE"+IntToStr(i+1),"File",Str);
         }
         pIni->EraseSection("LINE"+IntToStr(ob1));
         ob2 -=1;
         pIni->WriteInteger("CONF","Objem",ob2);
         break;
       }
     }
     pIni->UpdateFile();
     delete pIni;
   }
     FormShow(0);
  }
  else
  {
    if (MessageBox(0,"Удалить произведение?","",MB_OKCANCEL)==IDOK )
        ListBox1->Items->Delete(ListBox1->ItemIndex);
  }
}

@Lelik-pahan · 28.04.2013, 22:22

в этом сообщении я писал

Сообщение от Lelik-pahan

Добавил две фигурные скобки и блок else

Блок else вы скопировали, а как на счёт двух фигурных скобок?
В листинге они в 5-й и 32-й строке, рядом с ними соответствующий комментарий

@felicita_091 · 28.04.2013, 23:09 **[ТС]**

Lelik-pahan, спасибо получилось, но когда при выходе, и запускаю снова все как прежде

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике 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. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	28.04.2013, 15:52 [ТС]
	Lelik-pahan, пожалуйста посмотрите проект и поймете!!! У меня так получается, когда нажимаю на кнопку удалить, например, Пушкин(комбобокс)-Я Вас Любил(1), Онегин(2), Бабушка(3)(1-3листбох), при выборе Онегин удаляется только онегин, а не польностью комбобокс Пушкин 0

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	28.04.2013, 16:56 [ТС]
	Lelik-pahan, а еще добавить, когда нажимаю на добавление, ввести строчку и не добавляется новая строка в combobox 0

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	28.04.2013, 19:47 [ТС]
	Lelik-pahan, при удалении у меня не получается, нажимаю на строчку листбокс, а кнопка удалить не работает 0

@Lelik-pahan 1709 / 905 / 207 Регистрация: 25.11.2009 Сообщений: 1,850
	28.04.2013, 20:58
	а какой код у вас сейчас на кнопке удалить? 0

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	28.04.2013, 23:09 [ТС]
	Lelik-pahan, спасибо получилось, но когда при выходе, и запускаю снова все как прежде 0