Tfrxchartview и дата
Здравствуйте! Никак не получается сделать график с временной осью Нужна именно временная ось а не Labels.
На форме отчета находиться TFrxChartView, серия = Bar. Получаю ошибку = "10.01.2009" is not a valid date and time. Перепробовал уже все варианты, никак не могу понять в каком виде надо передавать дату.
procedure TForm1.btn1Click(Sender: TObject);
begin
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].DataType := dtFixedData;
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].XType := xtDate;
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].Source1 := 'Один;Два;Три';
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].Source2 := '1;2;3';
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].Source3 := '10.01.2009;20.01.2009;30.01.2009';
TfrxChartView(frxReport1.FindObject('Chart1')).Chart.BottomAxis.LabelStyle := talValue;
TfrxChartView(frxReport1.FindObject('Chart1')).Chart.Series[0].XValues.DateTime := True;
frxReport1.ShowReport();
end;
Изначально пробовал получать данные для графика через DataSet. Ошибка того же плана = "Вт 01.03.2016" is not a valid date and time.
ds1.FieldDefs.Clear;
ds1.FieldDefs.Add('Date', ftDateTime);
ds1.FieldDefs.Add('Value', ftSingle);
ds1.CreateDataSet;
for i := 1 to High(Arr) do
begin
ds1.Append;
ds1.FieldByName('Date').AsDateTime := Arr.Date;
ds1.FieldByName('Value').AsFloat := Arr.CF.Val;
end;
ds1.Post;
frxReport1.ShowReport();
Windows 10 Домашняя 64 бита, Delphi XE2 Professional, FastReport 4.15.13
На форме отчета находиться TFrxChartView, серия = Bar. Получаю ошибку = "10.01.2009" is not a valid date and time. Перепробовал уже все варианты, никак не могу понять в каком виде надо передавать дату.
procedure TForm1.btn1Click(Sender: TObject);
begin
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].DataType := dtFixedData;
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].XType := xtDate;
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].Source1 := 'Один;Два;Три';
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].Source2 := '1;2;3';
TfrxChartView(frxReport1.FindObject('Chart1')).SeriesData.Items[0].Source3 := '10.01.2009;20.01.2009;30.01.2009';
TfrxChartView(frxReport1.FindObject('Chart1')).Chart.BottomAxis.LabelStyle := talValue;
TfrxChartView(frxReport1.FindObject('Chart1')).Chart.Series[0].XValues.DateTime := True;
frxReport1.ShowReport();
end;
Изначально пробовал получать данные для графика через DataSet. Ошибка того же плана = "Вт 01.03.2016" is not a valid date and time.
ds1.FieldDefs.Clear;
ds1.FieldDefs.Add('Date', ftDateTime);
ds1.FieldDefs.Add('Value', ftSingle);
ds1.CreateDataSet;
for i := 1 to High(Arr) do
begin
ds1.Append;
ds1.FieldByName('Date').AsDateTime := Arr.Date;
ds1.FieldByName('Value').AsFloat := Arr.CF.Val;
end;
ds1.Post;
frxReport1.ShowReport();
Windows 10 Домашняя 64 бита, Delphi XE2 Professional, FastReport 4.15.13