Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Простой вопрос   Найти похожие ветки 

← →
федя   (2002-06-21 04:34) [0]

Как по-умному загнать содержимое столбца таблицы в 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;

---

← →
fnatali   (2002-06-21 05:55) [1]

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

---

← →
tural   (2002-06-21 10:12) [2]

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;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c