delphi Tchart画直方图（频数统计图）

mamie20062022-10-04 11:39:541条回答

用delphi的TChart发现这个直方图是以一个点坐标来画的,所以出现红柱横坐标aaa-AAA是一个点,本人希望aaa和AAA分别是红色直方图的左、右两个横坐标,像典型的频数统计图那样坐标是连续的,直方图是紧靠着的.（即红、绿直方能共用一个AAA的坐标）,请问如何解决?

已提交，审核后显示！提交回复

澳洲小龙虾共回答了20个问题 | 采纳率90%: procedure TForm1.BitBtn2Click(Sender: TObject);
var Series1:array[0..1] of TBarSeries;
i:integer;
begin
Series1[0]:=TBarSeries.Create(chart1);
Chart1.AddSeries(Series1[0]);
Series1[1]:=TBarSeries.Create(chart1);
Chart1.AddSeries(Series1[1]);
TBarSeries(Chart1.Series[0]).AddBar(random(100),'aaa-AAA',clred);
TBarSeries(Chart1.Series[1]).AddBar(random(100),'aaa-AAA',clgreen);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Series1:array[0..1] of TBarSeries;
i:integer;
begin
Series1[0]:=TBarSeries.Create(chart1);
Chart1.AddSeries(Series1[0]);
Series1[1]:=TBarSeries.Create(chart1);
Chart1.AddSeries(Series1[1]);
for i:=0 to 10 do
begin
TBarSeries(Chart1.Series[0]).AddBar(random(100),inttostr(i),clred);
TBarSeries(Chart1.Series[1]).AddBar(random(100),inttostr(i),clgreen);
end;
end;; 1年前