Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как заполнить список TDBComboBox.Items данными из DataSet? [D6, XP]


Abcdef123 ©   (2008-08-26 06:05:00) 

здравствуйте, Мастера.
Примитивный вопрос наверно. Этот вопрос по оптимальности в общем-то.
Я могу заполнить список вот так:
var
 stlList : TStringList;
begin
 stlList := TStringList.Create;
 dataset.first;
 While not dataset.eof do
 begin
   stlList.Add(dataset.FieldByName('Pole1').AsString);
   dataset.Next;
 end;
 DBComboBox1.Items.Assign(stlList);

Можно правда избежать TStringList, сразу дополнять построчно значение в DBComboBox1. Но мне кажется, что можно более грамотно с точки зрения программирования и короче это сделать (одним махом так сказать). Подскажите, плз, как?


{RASkov}   (2008-08-26 21:14:00) [1]

> И не забудь StringList свой убить в конце... Лучше всего try ... finally используй.

Если быть более оптимальным то он(временный TStringList) вообще не нужен в данном примере...
Зачем лишний раз дергаться? Перед циклом сделать DBComboBox1.Items.Clear;
В цикле DBComboBox1.Items.Add(dataset.FieldByName('Pole1').AsString);
ЗЫ: Авторше вопроса это)


asail   (2008-08-26 20:13:00) [2]

И не забудь StringList свой убить в конце... Лучше всего try ... finally используй.


Anatoly Podgoretsky   (2008-08-26 09:36:00) [3]

> Abcdef123  (26.08.2008 9:15:03)  [3]

Предложеный вариан, вполне достаточен, только подумать над параметрами.
Я бы передавал TDataset и TSrings


Abcdef123   (2008-08-26 09:15:00) [4]

To [1]
Насчет TDBLookupComboBox я знаю как использовать, просто в существующей программе используется TDBComboBox, мне просто надо этот же компонент использовать, просто, данные закачать из другого источника. И мой вопрос был прежде всего познавательный, возможно ли более оптимально заполнить список, или только построчно (каждую запись таблицы) добавлять?

To [2] ну уж это я знаю, :-)))))))
просто я на форум написала коротенький кусок программы

Так есть ли какие реальные предложения?


Anatoly Podgoretsky   (2008-08-26 08:48:00) [5]

> Abcdef123  (26.08.2008 6:05:00)  [0]

Перед var добавить procedure или function


Sergey13   (2008-08-26 08:36:00) [6]

Тебе наверное нужен TDBLookupComboBox, а не TDBComboBox.


Наверх

Титульная страница Поиск, карта сайта Написать письмо