Получить данные из таблицы в DBGrid1

[drofus]

Как получить в таблице BD DBGrid1 ADOQuery1 нужное поле, раньше в лист вью делал так

for i:=0 to ListView1.Items.Count-1  do
 begin
If pos(uslugi.Text, ListView1.Items[i].Caption)>0 then
 begin
if Combobox1.Text = '' then exit else
Cena.Caption:= ListView1.Items[i].SubItems.Strings[ComboBox2.ItemIndex];

Как переделать ? BD DBGrid1 ADOQuery1 пока не дружу, хотя бы схематически я потом доделаю сам

[drofus]

Так ошибка List Index out of bounds(5) в таблице 5 полей подскажите куда хоть смотреть

var
 i : integer;
 s : integer;
 o : integer;
begin
for i:=0 to Form3.ADOQuery1.FieldCount -1  do
Form3.ADOQuery1.Active := TRUE;
begin
If pos(usluga.Text, Form3.ADOQuery1.Fields[i].AsString)>0 then
begin
 if Label19.Caption = '' then exit else
      Label12.Caption:= Form3.ADOQuery1.Fields[i].AsString[StrToInt(Label19.Caption)];
    Form3.ADOQuery1.Next;

[drofus]

Вот так сделал.. Не знаю но мне кажется что не надежно

var
 i : integer;
begin
i:= usluga.ItemIndex;
if i = 0 then i:=1 else exit;
  Form3.DBGrid1.DataSource.DataSet.RecNo:= i (номер строки);
Label12.Caption:= Form3.DBGrid1.DataSource.DataSet.Fields.Fields[StrToInt(номер колонки)].Value;

Может посоветуете вариант получше ?

[evg_m]

1. либо напрямую из набора данных ( как и было указано раньше)

Label12.Caption:= Form3.ADOQuery1.Fields[i].AsString;

2. либо через поля связанные с колонками.

Label12.Caption:= Form3.Dbgrid1.Columns[i].Field.AsString;

3. использовать DBText и др. компоненты настроенные на тот же НД.
используя либо один и тот же Datasource (как правило это удобнее и меньше вероятность "случайного рассинхронивания")
либо два и более Datasource, но ссылающиеся на один и тот же DataSet(Query).