VPF::Combobox - Форум программистов

kwotz

Дата 21.7.2007, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 25
Регистрация: 6.1.2007
Где: Майкоп

Репутация: нет
Всего: нет

У меня вопрос по Combobox. При активации формы он заполняется значениями из БД. Все хорошо, но после следующей активации формы он заново заполняется значениями из БД. Проблема в следующем: как сделать так, чтобы заполнение происходило с самого начала, а не дополняла ранее заполненные значения?
Процедура:
Combobox.Items.Add
Как удалить значения из бокса (все значения, оставив только «-1»)?

Yanis

Дата 21.7.2007, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Вызвать

Код

ComboBox.Clear

очевидно.

Это сообщение отредактировал(а) Yanis - 21.7.2007, 16:22

--------------------

*щёлк*

Rodman

Дата 21.7.2007, 16:40 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Цитата(kwotz @ 21.7.2007, 15:21

)

как сделать так, чтобы заполнение происходило с самого начала,

повесить заполнение кобобокса не на активацию формы, а на ее создание!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

ivan219

Дата 22.7.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Или проверять ComboBox перед заполнением.

--------------------

Мой первый сайт и моя первая программа!!!!!

Telepyz

Дата 22.7.2007, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

Репутация: 1
Всего: 1

kwotz, Вот заполнение...

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
if ComboBox1.Items.Count = 0 then
 begin
  //Заполнение из БД
 end;
end;

вот удалить все...

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=ComboBox1.Items.Count downto 0 do
  ComboBox1.Items.Delete(i);
end;

насчет "-1" не знаю подумать нада
а удалить определенную запись

Код


  ComboBox1.Items.Delete(i); // вместо i пишешь номер записи не забудь что нумерация начинается с нуля

--------------------

обновить драйвер

ALeXandrK

Дата 22.7.2007, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 3
Всего: 6

Telepyz: А зачем такое садо-маза устраивать? smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=ComboBox1.Items.Count downto 0 do
  ComboBox1.Items.Delete(i);
end;

Если уже предложили красивый и правильный вариант:

Код


ComboBox.Clear

На счет:

Цитата

Как удалить значения из бокса (все значения, оставив только «-1»)?

Что значит оставив только "-1"? smile

"-1" введен спициально для обозначения того, что в
списке ничего нет. Ведь 0 использовать нильзя, т.к. в Pascal это номер 1го элемента! smile

P.s.: А чтобы не возникало подобных вопросов, нужно просто спроектировать заранее то,
что собираешься писать (блок схемы, UML и собственная память тебе в помощь smile

).
Тут больше ошибка произошла не из-за того, что не знаю как, а из-за того,
что собственный код ты себе не представляешь во времени(ну это мне так кажется smile

).

Удачи

Это сообщение отредактировал(а) ALeXandrK - 22.7.2007, 16:51

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

Telepyz

Дата 22.7.2007, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

Репутация: 1
Всего: 1

ALeXandrK, Я чет ступил, эт удаление для CheckListBox smile

--------------------

обновить драйвер

MetalFan

Дата 24.7.2007, 07:34 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(Telepyz @ 22.7.2007, 20:20

)

эт удаление для CheckListBox

у CheckListBox тоже есть метод Clear smile

--------------------

There are always someone smarter than you...

Telepyz

Дата 24.7.2007, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

Репутация: 1
Всего: 1

Не, вот код он удаляет выбранные, из него я сделал тот

Код


procedure TForm1.DelClick(Sender: TObject);
begin 
 for i:=CheckListBox.Items.Count-1 downto 0 do
  begin
   if CheckListBox.Checked[i] then  CheckListBox.Items.Delete(i);
  end;
end;

Извените за офтоп

Это сообщение отредактировал(а) Telepyz - 24.7.2007, 09:04

--------------------

обновить драйвер

ALeXandrK

Дата 24.7.2007, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 3
Всего: 6

Telepyz: Все-равно городишь лишнее.

Вот удаление выбранных:

Код


chklst1.DeleteSelected;

Вот очистка списка:

Код


chklst1.Clear;

Help открывает много возможностей компонентов! Пользуйся им smile

Это сообщение отредактировал(а) ALeXandrK - 24.7.2007, 10:49

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

Telepyz

Дата 24.7.2007, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

Репутация: 1
Всего: 1

ALeXandrK, Да, Help хорошая штука, был бы он на русском, былоб ваабще весело, а то переводчики коряво переводят...
Хотя и так все пронятно.. smile

--------------------

обновить драйвер

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »