动态生成TDBChart

for I := 0 to dm_medtech_work_sum.ado_medtech_dept_sum.FieldCount - 1 do
begin
if i > 2 then
begin
BarSeries := TBarSeries.Create(chart_dept_fee_type);
BarSeries.ParentChart := chart_dept_fee_type;
BarSeries.DataSource := dm_medtech_work_sum.ado_medtech_dept_sum;
BarSeries.XLabelsSource := '科室';
BarSeries.YValues.ValueSource := dm_medtech_work_sum.ado_medtech_dept_sum.Fields[i].FieldName;
BarSeries.Title := dm_medtech_work_sum.ado_medtech_dept_sum.Fields[i].FieldName;
BarSeries.ColorEachPoint := true;
end;

end;'

本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1311263，如需转载请自行联系原作者