Как сделать вывод нужного столбца бд в ComboBox.

[xclassic]

у меня в бд есть столбец где перечисляются наименование организации, как сделать так что бы они перечислялись в комбобоксе,(DBLoopCoomboBox не предлагать) буду очень благодарен, просто вообще не знаю как это сделать.

[MrDimain]

Я для таких целей написал функцию. конечно возможно это и костыль, но работает...

//aTable - имя таблицы из которой беру значения
//aField - Имя поля
//AWhere - Выборка
//aOrder - Сортировка
function GetListFromTable(aTable, aField: string; aWhere: string = '';
  aOrder: string = ''): TStringList;
var
  TQ: TADOQuery; {TQ = TempQuery}
  i: Integer;
begin
  TQ := TADOQuery.Create(nil);
  TQ.Connection := Connect;
  Result := TStringList.Create;

  aField := Format('(%S) AS ColName', [aField]);

  try
    TQ.SQL.Clear;
    TQ.SQL.Add('SELECT ' + aField + ' FROM ' + aTable);
    if aWhere <> '' then
      TQ.SQL.Add('WHERE ' + aWhere);
    if aOrder <> '' then
      TQ.SQL.Add('ORDER BY ' + aOrder);
    TQ.Open;

    for i := 1 to TQ.RecordCount do
    begin
      Result.Add(TQ.FieldList[0].AsString);
      TQ.Next;
    end;
  except
    on E: Exception do
    begin
      ShowMessage(TQ.SQL.Text + #13#10 + E.Message);
    end;
  end;

  TQ.Destroy;
end;

procedure TForm.Button1Click(Sender: TObject);
begin
  ComboBox.Items:= GetListFromTable({параметры});
end;

[xxbesoxx]

Сообщение от xclassic

как сделать так что бы они перечислялись в комбобоксе

http://programmersforum.ru/showthrea...Items+xxbesoxx