не выводит график

[sid1868]

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

procedure TForm8.BitBtn11Click(Sender: TObject);
var
i:integer;
begin
Form7.Series1.Clear;

Form8.ADOTable2.Filter:='poct='+#39+'поставщик'+#39;
Form8.ADOTable2.Filtered:=true;

Form8.ADOTable2.First;
For i:=1 To Form8.ADOTable2.RecordCount do
begin
  Form8.ADOTable2.RecNo:=i;
  Form7.Chart1.Series[0].AddXY(i,Form8.ADOTable2.FieldValues['octat']);

  if (i<>Form8.ADOTable2.RecordCount) then
    Form8.ADOTable2.Next;
end;

  Form8.ADOTable2.Filtered:=false;
  Form7.ShowModal;
end;

в чем может быть дело

Язык программирования Delphi

[Stilet]

Может стоит использовать DBChart, который более предназначен для этого?

[sid1868]

разницы нету
все равно не выводит

[Stilet]

Разница есть еще и какая.
DBGrid подключается к ADOTable к определенному полю, и самостоятельно берет из него данные, нет нужды цикл отдельно писать. Так что в твоем случае рекомендую.

[sid1868]

так а как подключить к базе DBChart1

[Stilet]

Все так же как и обычный Чарт, только в настройках Серии есть на вкладке указание (выпадающий список) откуда брать данные - указываешь DataSource и поле