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

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

Простой вопрос

федя ©   (2002-06-21 04:34:00) 

Как по-умному загнать содержимое столбца таблицы в ComboBox?
Может быть есть стандартная ф-ция вроде:

function TForm1.MakeStrings(ATable,AField:string):TStrings;
begin
result:=TStringList.Create;
with Table do
begin
TableName:=ATable;
Open;
while not Eof do begin
result.Add(FieldValues[AField]);
next
end;
Close
end
end;

---

tural   (2002-06-21 10:12:00) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.First;
ComboBox1.Items.Clear;
while not Table1.Eof do
begin
ComboBox1.Items.Add(Table1.FieldByName("subj_name").AsString);
Table1.Next;
end;
end;

---

fnatali   (2002-06-21 05:55:00) [2]

Может, тебе воспользоваться DBLookupComboBox?

---

Наверх