freepascal.ru

пытаюсь реализовать это следующим образом:

Код: Выделить всё

procedure TForm1.SpeedButton3Click(Sender: TObject);
var a1,a2,u:integer;
begin
      With Series1 do
      begin
       try
       Clear;
       a1:=SdfDataSet1.FieldByName('Profession').AsInteger;
       a2:=SdfDataSet1.FieldByName('Age').AsInteger;
       Add(a1,'Профессия',clRed);
       Add(a2,'Возраст',clBlue);
       except
         on EConvertError do
         u:=1;
       end;
      end;
end;

но так рисуется зависимость по данным только из текущей строки, а как сделать так, чтобы зависимость строилась по всем значениям из dbgrid?

1) В программе ошибка, отсутствует цикл по записям, поэтому все данные берутся из первой записи
2) Вообще для этих целей лучше использовать TDBChartSource, см. демку dbdemo

[Модераторам: наверное, эта тема должна быть в разделе Lazarus?]