Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.05.2008, 14:08
alex-chz alex-chz вне форума
Прохожий
 
Регистрация: 10.04.2008
Сообщения: 4
Репутация: 10
По умолчанию DBComboBox

Вот такая простенькая операция, но почему-то не получается:
Необходимо сделать автозаполнение. Если заполять через инспектор(Items), то все работает отлично, но необходимо, чтоб все заполнялось в программе.
AutoComplete устанавливаю в активно(true)-оно такое по умолчанию));
далее добавляю строки .Items.Add(ct);
//ct-это переменная типа string;
ну и кроме этого установлен DataSourse и DataField;

и вроде как все работает, но до закрытия формы.
Какой командой надо добавлять строки ,чтоб все сохранялось? либо же в чем у меня ошибка?
Ответить с цитированием
  #2  
Старый 07.05.2008, 20:24
Аватар для Professor Farnsworth
Professor Farnsworth Professor Farnsworth вне форума
Прохожий
 
Регистрация: 19.04.2008
Сообщения: 42
Репутация: 10
По умолчанию

Задача компонента DBComboBox отображать текущее значение базы данных, а в список вы вносите фиксированные значения и сохранение этого списка не предусмотрено.
Можно заполнять этот список программно в процедуре, например FormCreate. Либо прописывая конкретные значения строк либо считывания из какой нибудь таблицы из БД.
Код:
With DBComboBox1.Items do
begin
    Table1.first;
    While not Table1.EOF do
    begin
          Clear;
          Add(Table1.Field[1].asString);
          Table1.next;
    end;
end;

Правда вместо этого обычно используют DBLookUPComboBox
Ответить с цитированием
  #3  
Старый 08.05.2008, 21:26
alex-chz alex-chz вне форума
Прохожий
 
Регистрация: 10.04.2008
Сообщения: 4
Репутация: 10
Хорошо

Цитата:
Сообщение от Professor Farnsworth
Код:
With DBComboBox1.Items do
begin
    Table1.first;
    While not Table1.EOF do
    begin
          Clear;
          Add(Table1.Field[1].asString);
          Table1.next;
    end;
end;

Большое спасибо и на этом, теперь все отлично работает
Только зачем была строка Clear?

Последний раз редактировалось alex-chz, 09.05.2008 в 14:03.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:03.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025