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

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

Заполнить программно ComboBox

Kirill_S ©   (2003-05-06 10:32:00) 

Подскажите, как можно программно заполнить ComboBox строками из определенных полей таблицы?, строки не должны повторяться.

---

MsGuns   (2003-05-06 14:30:00) [1]

>P.Kert © (06.05.03 12:34)

А нафига там массив из 10000 строк ? Для солидности ?

---

Kirill_S   (2003-05-06 14:28:00) [2]

Всем большое спасибо, уже работает по SQL запросу Соловьева, ему отдельный thanks!:)

---

RDA   (2003-05-06 14:27:00) [3]

Мне кажется так
Забыл
with Table do
begin
Open;
First;
while not Eof do
begin
if (ComboBox.Items.Count=0) or (ComboBox.Items.IndexOf(TableField.AsString))=-1 then
ComboBox.Items.Add(TableField.AsString);
Next;
end;
Close;
end;

---

RDA   (2003-05-06 14:24:00) [4]

Мне кажется так
with Table do
begin
Open;
First;
while not Eof do
if (ComboBox.Items.Count=0) or (ComboBox.Items.IndexOf(TableField.AsString))=-1 then
ComboBox.Items.Add(TableField.AsString);
Close;
end;

---

P.Kert   (2003-05-06 12:34:00) [5]

procedure TfmPRODUCT.FormActivate(Sender: TObject);
var
itemsSTR: array [1..10000] of string;
i: integer;
begin
MainForm.dbSCLAD.StartTransaction;
//-------------INSERT VALUES TO cbDET---------------
i:=0;
with MainForm.taDETAILS do begin
First;
while not MainForm.taDETAILS.EOF do begin
itemsSTR[i]:=MainForm.taDETAILSName.Value;
cbDET.Items.Add(itemsSTR[i]);
Next; i:=i+1;
end;

end;
//---------END OF INSERT VALUES TO cbDET---------------
//------------------------------------------------------------
//---------DISPLAY OF LIST GRID------------------------
//NamePRODUCT:=WorkTable.SelectedField;
MainForm.Enabled:=false;
end;

---

Kirill_S   (2003-05-06 12:25:00) [6]

Огромное спасибо, буду пробовать!

---

Соловьев   (2003-05-06 10:41:00) [7]

select distinct(field)
from table

with Query do
begin
Close;
Open;
First;
While not Eof do
begin
ComboBox.Items.Add(FieldByName(Field).AsString);
Next;
end;
end

---

Наверх