这个问题就这么难么？Chart控件如何给它赋值？为什么没人回答？

Question

太失落了！
我想动态改变Chart的列数、标签、值，如何赋值啊？

Answer 1

delphi5\demo里有例子
procedure TFormMultiMachinesBurthen.
ShowMachineBurthenCharts;
var
i:Integer;
Burthen:Real;
SeriesClass:TChartSeriesClass;
NewSeries:array of TChartSeries;
begin
SetLength(NewSeries,CreateMultiCharts.Rows);
MachinesBurthenCharts.height:=200;
MachinesBurthenCharts.Width:=550;
for i:=0 to CreateMultiCharts.Rows do
begin
SeriesClass:=TBarSeries; //设置形状为三维条形图
NewSeries[i]:=SeriesClass.Create(Self);
NewSeries[i].ParentChart:=MachinesBurthenCharts;
NewSeries[i].Clear;
Burthen:=MachineBurthen[i];
Burthen:=Round(Burthen*100)/100; //只取小数点后两位数字
NewSeries[i].add(Burthen,'',NewSeries[i].SeriesColor);
end;
end;

Answer 2

我试了但是老出错，它的demo有点太复杂了，没有直接赋值演示。

Answer 3

你试试
for i:=0 to 6 do
begin
     frmchart.Chart1.SeriesList[i].Add(outnm[i+1],inttostr(i));
   end;
记得给分哟