название столбцов в combobox из dbgrid

[KoC aka HoC]

Всем привет! у меня проблема,помогите пожалуйста. есть код неповторяющегося списка в combobox из dbgrid, но при этом из грида берутся значения полей. мне же надо,чтобы брались заголовки столбцов. как это сделать,что изменить? подскажите. вот код:

procedure TForm4.ComboBox1DropDown(Sender: TObject); //неповторяющийся
var i,j,o:integer;                                  //список
begin

combobox1.Items.Clear;
for I:=1 to form3.Table1.RecordCount do
begin
  o:=0;
 form3.Table1.RecNo:=i;
  for j:=0 to combobox1.Items.Count do
    if (form3.Table1.FieldValues['opred']=combobox1.Items[j]) then o:=1;
    if (form3.Table1.FieldValues['opred']<>combobox1.Items[j]) and (o=0) then
      begin
        combobox1.Items.add(form3.Table1.FieldValues['opred']);
        o:=1
      end;
end;
form3.Table1.RecNo:=1;
end;

[_SERGEYX_]

из грида берутся значения полей

Так там и написано брать Table1.FieldValues
заголовки столбцов - это
dbGrid1.Columns[i].Title.Caption
а сам цикл

for i:=0 to dbGrid1.Columns.Count-1 do ...

И зачем заполнять его в ComboBox1DropDown? Может проще заполнить один раз при открытии таблицы?

[KoC aka HoC]

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

Так там и написано брать Table1.FieldValues
заголовки столбцов - это
dbGrid1.Columns[i].Title.Caption
а сам цикл

for i:=0 to dbGrid1.Columns.Count-1 do ...

И зачем заполнять его в ComboBox1DropDown? Может проще заполнить один раз при открытии таблицы?

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

[KoC aka HoC]

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

заголовки столбцов - это
dbGrid1.Columns[i].Title.Caption

именно это мне,наверное и надо) благо дарю!

[KoC aka HoC]

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

заголовки столбцов - это
dbGrid1.Columns[i].Title.Caption

оказалось,что это не то,что надо.. не добавляет он заголовки..
или я неправильно написал:

combobox1.Items.Clear;
for I:=1 to form3.query1.RecordCount do
begin
  o:=0;
 form3.query1.RecNo:=i;
  for j:=0 to combobox1.Items.Count do
    if (form3.dbGrid1.Columns[j].Title.Caption=combobox1.Items[j]) then o:=1;
    if (form3.dbGrid1.Columns[j].Title.Caption<>combobox1.Items[j]) and (o=0) then
      begin
        combobox1.Items.add(form3.dbGrid1.Columns[j].Title.Caption);
        o:=1
      end;
end;
form3.query1.RecNo:=1;
end;

что тут не так ????

[vovk]

combobox1.Items.Clear;
for j:=0 to form3.dbGrid1.Columns.Count - 1 do
begin
if ComboBox1.Items.IndexOf(form3.dbGrid1.Columns[j].Title.Caption) = -1 then
combobox1.Items.add(form3.dbGrid1.Columns[j].Title.Caption);
end;

что *у вас там не так долго рассказывать, там всё не так.
Но если очень хочется то могу рассказать.

PS
Если нужны имена полей таблицы то

form3.dbGrid1.datasource.datadet.getfieldnames(ComboBox1.Items);