Delphi-Help

begin

  MyTable.active := True; {открываем базу данных}

  MyTable.first;

  MyChart.title[CHART_BOTTOMTIT] := 'Заголовок по оси X';

  MyChart.title[CHART_LEFTTIT] := 'Заголовок по оси Y';

  MyChart.OpenData[COD_XVALUES] := MakeLong(numOfSeries, numofPoints);

  MyChart.OpenData[COD_VALUES] := MakeLong(numOfSeries, NumofPoints);

  MyChart.ThisSerie := SeriesNum; {начинаем с 0}

  while MyTable.EOF <> True do

  begin

    MyChart.value[i] := MyTable.FieldByName('SOMEFIELD').AsFloat;

    MyChart.Xvalue[i] := MyTable.FieldByName('SOMEOTHERFIELD').AsFloat;

    MyTable.next;

    i := i + 1; {естественно, вам необходимо определить и инициализировать 'i'}

  end;

  MyChart.CloseData[COD_Values] := 0;

  MyChart.CloseData[COD_XValues] := 0;

  MyTable.active := False; {закрываем базу данных}

end;

{Обратите внимание на то, что данный код отностится к диаграмме

типа xy scatter. Если вы хотите сменить тип диаграммы ChartFX,

вам не нужно устанавливать значения для COD_XVALUES}