SOS!!!!!!!!!十万火急!!!!如何实现动态建立SERIES,同时改变形状。如折线，饼形 (200分)

小弟最近碰到一个难题，希望哪位大虾鼎立相助(明天就要交差)

TAreaSeries
TBarSeries
TCircledSeries
TCustomBarSeries
TCustomSeries
TFastLineSeries
THorizBarSeries
TLineSeries
TPieSeries
TPointSeries
TSeriesPointer
总共有11个SERIES可供选择。
创建一个FORM，放DBCHART组件，TABLE组件，两个按钮。TABLE组件连接表，当然你也可以用QUERY等。
看以下例子：
procedure TForm1.Button1Click(Sender: TObject);// 曲线
var myseries:TLineSeries;
begin
dbchart2.SeriesList.Clear;
myseries:= TLineSeries.Create(self);
myseries.ParentChart:=dbchart2;
myseries.DataSource:=table1;
myseries.XValues.ValueSource:='yf';
myseries.YValues.ValueSource:='gz';
end;

procedure TForm1.Button2Click(Sender: TObject);// 柱状
var myseries:TBarSeries;
begin
dbchart2.SeriesList.Clear;
myseries:= TBarSeries.Create(self);
myseries.ParentChart:=dbchart2;
myseries.DataSource:=table1;
myseries.XValues.ValueSource:='yf';
myseries.YValues.ValueSource:='gz';
end;
其他的，看了这个，原理是一样的。

如果不用挂数据库，那，省略掉数据连接就可以了，可以手工指定横轴和纵轴的每个点的值。
这个在DELPHI6下，调试没有问题。给分。

这个问题已经过时了，也没有提问者回复，用那个代码，已经解决问题了。
斑竹给分结帖吧。

up

up

谢谢816，真是不好意思，我的信箱没有收您回复的信。等我测试一下，通过马上给你分。

接受答案了.