chtFir: TChart; ... procedure TfrmMain.DrawChart; var tSeries: TChartSeries; i: Integer; begin tSeries := nil; for i := 0 to chtFir.SeriesCount - 1 do chtFir.Series[i].Free; tSeries.Marks.Style := smsValue; tSeries.ColorEachPoint := true; {你改写下面代码加入要显示的数据} aqChart.First; for i := 0 to aqChart.RecordCount - 1 do begin tSeries.Add(aqChart.FieldByName('scount').AsFloat, aqChart.FieldByName('sname').AsString); aqChart.Next; end; {加入结束} chtFir.AddSeries(tSeries); end;
...
procedure TfrmMain.DrawChart;
var
tSeries: TChartSeries;
i: Integer;
begin
tSeries := nil;
for i := 0 to chtFir.SeriesCount - 1 do
chtFir.Series[i].Free;
tSeries.Marks.Style := smsValue; tSeries.ColorEachPoint := true;
{你改写下面代码加入要显示的数据}
aqChart.First;
for i := 0 to aqChart.RecordCount - 1 do
begin
tSeries.Add(aqChart.FieldByName('scount').AsFloat, aqChart.FieldByName('sname').AsString);
aqChart.Next;
end;
{加入结束} chtFir.AddSeries(tSeries);
end;