Удалить строчку 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 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа 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, в дополнении к предыдущему решению. На форме документа создается. . .

@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

Опции темы