给你一个参考吧,希望能对你有用procedure TForm1.frxReport2BeforePrint(c: TfrxReportComponent); var MyChart: TfrxChartView; i, j: Integer; begin if c is TfrxChartView then Begin MyChart := TfrxChartView(c); If MyChart.Name='Chart1' Then Begin //MyChart.SeriesData.Clear; MyChart.Chart.Series[0].Title:='good'; MyChart.Chart.Series[0].Clear; MyChart.Chart.Series[1].Clear; For i:=1 To 100 Do MyChart.Chart.Series[0].AddXY(i,i,'test1'); For j:=1 To 100 Do MyChart.Chart.Series[1].AddXY(j,100-j,'test2'); End; End; end;
var
MyChart: TfrxChartView;
i, j: Integer;
begin
if c is TfrxChartView then
Begin
MyChart := TfrxChartView(c);
If MyChart.Name='Chart1' Then
Begin
//MyChart.SeriesData.Clear;
MyChart.Chart.Series[0].Title:='good';
MyChart.Chart.Series[0].Clear;
MyChart.Chart.Series[1].Clear;
For i:=1 To 100 Do
MyChart.Chart.Series[0].AddXY(i,i,'test1');
For j:=1 To 100 Do
MyChart.Chart.Series[1].AddXY(j,100-j,'test2');
End;
End;
end;
这个我不太明白