关于TCHAT的使用 ( 积分: 100 )

有谁能提供一下这个控件的使用帮助呢？我现在要出一份动态报表，类似下面这样的：
400
300 300
200 200 200
100 100
1 2 3 4 5 6 7 8 9 10 11 12
分别是两条线200-300；100-200；这两条线是不同项目的。我想通过动态的加series来实现，但是手头上没有资料。请各位帮忙一下。

有谁能提供一下这个控件的使用帮助呢？我现在要出一份动态报表，类似下面这样的：
400
300 300
200 200 200
100 100
1 2 3 4 5 6 7 8 9 10 11 12
分别是两条线200-300；100-200；这两条线是不同项目的。我想通过动态的加series来实现，但是手头上没有资料。请各位帮忙一下。

var
S1, S2: TFastLineSeries;
//...
begin
S1 := TFastLineSeries.Create(ChartLeft);
S2 := TFastLineSeries.Create(ChartLeft);

S1.LinePen.Style := psSolid
//实线,以下按你的要求设定
S1.LinePen.Width := 1;
S1.Title := 'Project1';
S1.ParentChart := chart1
//要显示series的tchart对象
S1.SeriesColor := clRed;

S2.LinePen.Style := psDash
//虚线
S2.LinePen.Width := 1;
S2.Title := 'Project2';
S2.ParentChart := chart1;
S2.SeriesColor := clGreen;

S1.Clear;
S2.Clear;
S1.AddXY(4, 200);
S1.AddXY(9, 300);
S2.AddXY(8, 100);
S2.AddXY(11, 200);

//...
end;

我用的是fastreport里面的chart控件，这个要如何实现呢？

fastreport好像提到过不能直接操作
使用assignchart（印像中是）将tchart指定给report的图表

具体要怎么实现呢？我这边没办法动态的

事实上我没用过，没法准确回答
来自一段fastreport的FAQ：
2.26. How to make the TChart with several series?

You can't do this in designer. You need to write some code in Delphi.
Create TChart or TDBChart, fill it out
put the empty TfrChartView to the report;
write the following code in the TfrReport.OnBeforePrint event handler:

if View.Name = 'Chart1' then
TfrChartView(View).AssignChart(your_Delphi_chart) ;

这里Chart1应该就是报表上面用的TfrChartView的名字，
your_delphi_chart为Tchart或TDBChart，就先用类似我上面的那段代码进行动态处理

楼上的代码也验证，可以实现。

我们的体系实现不了这样的，晕！还有没有其他办法啊？