Ошибка в ComboBox

@Bormentalka · Регистрация: 07.03.2016

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

Приветствую. Возникла проблема с КомбоБоксом.
Допустим у меня есть 2 бокса и кнопка подсчета данных из боксов. Если я не заполняю один из боксов, то при нажатии на кнопку выдаёт ошибку: is not valid integer value и т.д. Но если выбираю какую-либо строку в ОБОИХ боксах, то происходит подсчет.
Так вот. Бывают такие моменты, когда данные из второго бокса просто не нужны, но, если я его не заполню (выбираю какую либо строку), появляется эта ошибка. Помогите её решить, пожалуйста.

P.s. Решил проблему частично. Просто во второй бокс добавил строку с названием "Пусто". Теперь, по сути, если второй бокс не нужен, я выбираю строку ПУСТО и происходит подсчет. Но это очень не удобно, если боксов будет много, то каждому придется выбирать это значение. Вернемся к вопросу выше

@Bormentalka · 09.11.2017, 19:46 **[ТС]**

Все на много сложнее... Сейчас начал учиться на программиста. Изучаем пока что delphi, но на элементарном уровне (как присвоить значение переменной, что такое If и т.д.), а т.к. с этим уже знаком, параллельно, самостоятельно начал углубляться в эту тему. Пишу программу для себя, по спорту и параллельно изучаю архитектуру Делфи и самого паскаля. Поэтому такие сложности возникают. Но работа идёт весьма продуктивно
Спасибо за разъяснение. А если, допустим, у меня на форме 5 комбобоксов, а очистить мне надо 4, то уже персонально для каждого придется прописывать очистку, как у меня было? Я так понял, этот перебор уже не подойдет

@D1973 · 10.11.2017, 05:19

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

этот перебор уже не подойдет

Подойдет, только с дополнительным условием... Для каждого компонента имеется свойство Tag. Установите это свойство = 1 для тех комбобоксов, которые надо очищать и оставьте =0 по умолчанию для того, который очищать не надо:

Delphi
1
2
3
4
5
6
7
var i: integer;
begin
 for i := 0 to ControlCount - 1 do
  if Controls[i] is TComboBox
   then if (Controls[i] as TComboBox).Tag = 1
         then (Controls[i] as TComboBox).ItemIndex := -1;
end;

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

@Bormentalka 0 / 0 / 0 Регистрация: 07.03.2016 Сообщений: 29

	Ошибка в ComboBox 04.11.2017, 19:10. Показов 1200. Ответов 21 Метки нет (Все метки) Приветствую. Возникла проблема с КомбоБоксом. Допустим у меня есть 2 бокса и кнопка подсчета данных из боксов. Если я не заполняю один из боксов, то при нажатии на кнопку выдаёт ошибку: is not valid integer value и т.д. Но если выбираю какую-либо строку в ОБОИХ боксах, то происходит подсчет. Так вот. Бывают такие моменты, когда данные из второго бокса просто не нужны, но, если я его не заполню (выбираю какую либо строку), появляется эта ошибка. Помогите её решить, пожалуйста. P.s. Решил проблему частично. Просто во второй бокс добавил строку с названием "Пусто". Теперь, по сути, если второй бокс не нужен, я выбираю строку ПУСТО и происходит подсчет. Но это очень не удобно, если боксов будет много, то каждому придется выбирать это значение. Вернемся к вопросу выше 0

@Bormentalka 0 / 0 / 0 Регистрация: 07.03.2016 Сообщений: 29
	09.11.2017, 19:46 [ТС]
	Все на много сложнее... Сейчас начал учиться на программиста. Изучаем пока что delphi, но на элементарном уровне (как присвоить значение переменной, что такое If и т.д.), а т.к. с этим уже знаком, параллельно, самостоятельно начал углубляться в эту тему. Пишу программу для себя, по спорту и параллельно изучаю архитектуру Делфи и самого паскаля. Поэтому такие сложности возникают. Но работа идёт весьма продуктивно Спасибо за разъяснение. А если, допустим, у меня на форме 5 комбобоксов, а очистить мне надо 4, то уже персонально для каждого придется прописывать очистку, как у меня было? Я так понял, этот перебор уже не подойдет 0