[cam777]

Подскажите плиз начинающему.

Есть Таблица с данными.
Как заставить ComboBox видеть 1 колонку, чтобы при нажатии выпадали все данные с первой колонки.

Можно просто код или объяснение.

Плизз

[mav_c]

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

Подскажите плиз начинающему.

Есть Таблица с данными.
Как заставить ComboBox видеть 1 колонку, чтобы при нажатии выпадали все данные с первой колонки.

Можно просто код или объяснение.

Плизз

Всмысле, что значит есть таблица с данными? Таблица в БД? Если да то тебе нужен LoockComboBox, или "ручками" грузить данные из датасэта в ComboBox.

[cam777]

Да таблица в БД, ручками бы я загрузил
В проге в данную таблицу подгружаются новые строки и вот их тоже должен видеть КомбоБокс
Если можно простейший код с пояснениями, я пойму
Как понимаю все данные Комбобокса находятся в Items, туда можно забить ручками, а вот програмно как?

[mav_c]

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

Да таблица в БД, ручками бы я загрузил
В проге в данную таблицу подгружаются новые строки и вот их тоже должен видеть КомбоБокс
Если можно простейший код с пояснениями, я пойму
Как понимаю все данные Комбобокса находятся в Items, туда можно забить ручками, а вот програмно как?

Я имею ввиду под "ручками", то что для загрузки данных код надо писать!

Ну вот так:

Код:

...
qQuery - твой датасэт(привязаный к таблице)

while (not qQuery.Eof) do
begin
 ComboBox.Items.Add(qQuery.FieldByName('имя_поля_таблицы').AsString);
 qQuery.Next();
end;

...

Вот и всё

[cam777]

Я пишу почти тоже самое, тока ниче не получается:

var
I: Integer;
begin
Form1.ReqOpen(Sender); //открываем Table1
Form1.Table1.First;
for I := 0 to Form1.Table1.RecordCount-1 do
begin
ComboBox1.Items.Add(Form1.Table1.FieldByName('Name ').AsString);
Form1.Table1.Next;
end;
Form1.Table1.Close;
end;

что неправильно?

[AlexSku]

После Name убери пробел. У меня всё работает.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
  Table1.First;
  for I := 0 to Form1.Table1.RecordCount-1 do
  begin
    ComboBox1.Items.Add(Table1.FieldByName('Name').AsString);
    Form1.Table1.Next;
  end;
end;