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

← →
Kirill_S © (2003-05-06 10:32) [0]

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

← →
Соловьев © (2003-05-06 10:41) [1]

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

← →
Kirill_S © (2003-05-06 12:25) [2]

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

← →
P.Kert © (2003-05-06 12:34) [3]

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;

← →
RDA © (2003-05-06 14:24) [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;

← →
RDA © (2003-05-06 14:27) [5]

Мне кажется так
Забыл
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;

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

Заполнить программно ComboBox Найти похожие ветки