Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Удаление лишних значений в ComboBox  [new]
azarenko
Member

Откуда: Москва
Сообщений: 20
Всем привет! Интересует следующие вопрос: в ComboBox имеются следующие данные (items):
123
234
345
456
567
678
789
890

Необходимо сделать так, чтобы при нажатии на кнопку, удалялись, а еще лучше скрывались (не изменяя ItemIndex), все значения, где есть, например, цифра 4.
Есть какие-нибудь идеи?
11 янв 17, 16:59    [20094763]     Ответить | Цитировать Сообщить модератору
 Re: Удаление лишних значений в ComboBox  [new]
DarkMaster
Member

Откуда: Donetsk,Ukraine
Сообщений: 5628
azarenko,

Убрать - легко:

for i:=Pred(ComboBox1.Items.Count) downto 0 do
  if Pos('4',ComboBox1.Items[i])>0 then ComboBox1.Items.Delete(i);


P.S. Цель сего действа мне не понятна...
11 янв 17, 17:04    [20094784]     Ответить | Цитировать Сообщить модератору
 Re: Удаление лишних значений в ComboBox  [new]
azarenko
Member

Откуда: Москва
Сообщений: 20
DarkMaster, просто через ItemIndex установлена связь с другими компонентами.
А как наоборот сделать, чтобы остались все значения, где есть цифра 4?
11 янв 17, 17:09    [20094805]     Ответить | Цитировать Сообщить модератору
 Re: Удаление лишних значений в ComboBox  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 23203
azarenko
А как наоборот сделать, чтобы остались все значения, где есть цифра 4?

Это викторина?
11 янв 17, 17:17    [20094844]     Ответить | Цитировать Сообщить модератору
 Re: Удаление лишних значений в ComboBox  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 43927

azarenko
просто через ItemIndex установлена связь с другими компонентами.

"Ой-ёёёё..." (с)

Переделай. Это кривой дизайн.

Posted via ActualForum NNTP Server 1.5

11 янв 17, 17:31    [20094909]     Ответить | Цитировать Сообщить модератору
 Re: Удаление лишних значений в ComboBox  [new]
DarkMaster
Member

Откуда: Donetsk,Ukraine
Сообщений: 5628
azarenko
А как наоборот сделать, чтобы остались все значения, где есть цифра 4?


if Pos('4',ComboBox1.Items[i])>0 then continue
else ......


На третий вопрос отвечать не буду
11 янв 17, 17:47    [20094985]     Ответить | Цитировать Сообщить модератору
 Re: Удаление лишних значений в ComboBox  [new]
fd00ch
Member

Откуда: Нижний Новгород
Сообщений: 5864
сделай OwnerDrawVariable и выставляй высоту в 0 пикселей для ненужных строк

зы. идея - невероятный костыль, не надо реализовывать ее на практике
13 янв 17, 00:59    [20100799]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить