Работа с Comb и ttable отзовитесь

[Kuchiki Byakuya]

У меня процедура присваивающая Comboboxy1 таблицу Ttable5. Вот
процедура(ComboBox1.Items.Add(Table 5.fieldbyname('ASU').AsString); Столбик Асу должен был весь помеситься в список Comboboxa, но помещается только лишь одна строка колонки Асу. Что изменить?

[artemavd]

Просто берите и заполняйте ComboBox запросом. В Firebird я делал это так:

  Form1.pFIBDataSet1.Close;
  Form1.pFIBDataSet1.SQLs.SelectSQL.Text:='SELECT DISTINCT NUMBERCLASS FROM CLASSNAME';
  Form1.pFIBDataSet1.Open;
  Form1.pFIBDataSet1.First;
  Form1.sComboBox4.Clear;
  while not Form1.pFIBDataSet1.Eof do
  begin
    Form1.sComboBox4.Items.Add(Form1.pFIBDataSet1.FieldByName('NUMBERCLASS').AsString);
    Form1.pFIBDataSet1.Next;
  end;

По аналогии сделайте как Вам надо)

[Kuchiki Byakuya]

Извини конечно, у меня гдето 30 Комбобоксов, не мог бы ты написать немного попроще, и да, желательно без sql, простенькую процедурку....

[artemavd]

у меня гдето 30 Комбобоксов

А зачем так много-то?

не мог бы ты написать немного попроще

Да куда еще проще-то?

и да, желательно без sql, простенькую процедурку....

С SQL-запросом как раз и будет проще-то. Просто почитайте про запросы и поймете, что там все просто. Если трудно, то могу пояснить Вам свой код по строчно.

[Kuchiki Byakuya]

Просвети пещерного человека.... 30 комбов для того чтобы вбить информацию, я пишу прогу которая дипломные работы будет распечатывать в Excele.

[artemavd]

  Form1.pFIBDataSet1.Close; //закрываем датасет
  Form1.pFIBDataSet1.SQLs.SelectSQL.Text:='SELECT DISTINCT NUMBERCLASS FROM CLASSNAME'; //записываем текст нашего запроса
  Form1.pFIBDataSet1.Open; //открываем запрос
  Form1.pFIBDataSet1.First; //переходим на первую запись
  Form1.sComboBox4.Clear; //очищаем ComboBox 
  while not Form1.pFIBDataSet1.Eof do //проходим циклом до конца датасета
  begin //начинаем заполнять ComboBox записями
    Form1.sComboBox4.Items.Add(Form1.pFIBDataSet1.FieldByName('NUMBERCLASS').AsString);
    Form1.pFIBDataSet1.Next; //и так от записи к записи
  end;

Вы скажите какие поля Вам нужно выбрать? А я попробую помочь переделать мой код под Ваш.

[Kuchiki Byakuya]

Мне нужны все поля из таблицы АСУ.

[Dark_Spirit]

while not(table5.eof) do
 begin
  combobox1.items.add(table5.fieldbyname('ASU').AsString);
  table5.next; 
 end;

[plato]

а кто за вас строки перебирать будет? папа карло?