Var
SeriesRec: TFastLineSeries;
Data_y: array [0.. 3] of the variant;
The begin
TfrxChartview (frxReport1 FindObject (' Chart1). ClearSeries;//clear the line
TfrxChartView (frxReport1 FindObject (' Chart1). SeriesData. The Clear;
SeriesRec:=TFastLineSeries. Create (TfrxChartView (frxReport1. FindObject (' Chart1)));//create the line
TfrxChartView (frxReport1 FindObject (' Chart1)). The Chart. The View3D:=False;//30
TfrxChartView (frxReport1 FindObject (' Chart1)). The Chart. The AddSeries (SeriesRec);//chart to add lines
Data_y [0] :=3;
Data_y [1] :=5;
Data_y [2] :=3;
Data_y [3] :=5;
With TfrxChartView (frxReport1 FindObject (' Chart1). SeriesData. Add the do
The begin
DataType:=dtDBData;
XSource:='1';
Data_y YSource:=data_y [0] + [1] + data_y + data_y [2] [3].
The DataSet:=frxReport1 GetDataset (frxDBDataset3. Name);
end;


Abscissa was painted by a straight line are all 1, ordinate all 16 (3 + 5 + 3 + 5)
How to do? I have a string array, want to draw the curve here!!!!!!!!!!

. Another way is TfrxChartView (frxReport1 FindObject (' Chart1)). The Chart, the Assign (chart_delphi); But even is connected, is in the curve of the main interface fastreport don't show?

CodePudding user response:

Your XSource:='1'; Is not fixed by 1, the result is, of course, a vertical straight line

What is your X coordinates, the XSource will follow to change

CodePudding user response:

String 1 '1 3 5 7 9' 2 'string 5 3 3'
I'd like to make a string of 1 3 5 July 9 is the abscissa of data
String is 2 of 5 3 5 3 ordinate data
How to draw the curve?

CodePudding user response:

Everybody to help

CodePudding user response:

I don't understand of ask me

CodePudding user response:

refer to 6th floor ava20_06 response:

I will, don't understand of ask me

How do you get ah