关于柱状图

[footballboy]

有数组R:array[1..12,1..3] of integer;保存了1-12月的三个统计指标,请问怎样生成一张图标显示1-12月的统计指标,三个指标分别用红绿蓝柱表示.即每个月都有并排显示的红绿蓝柱各一条.我想用Cube等控件,但它们好像是配合数据库使用的.

[ayukowa]

up

[footballboy]

笔误,图标应为图表

[ahuige]

放一个tchart在form上。
首先自动或者手动生成三个tbarseires
先定3个series的数据数，都是12
Series1.Count:=12
Series2.Count:=12
Series3.Count:=12
For index := 0 to Series1.Count - 1 do
Series1.yValues[Index] := i;//当然你不会用i的，自己用数组
For index := 0 to Series2.Count - 1 do
Series2.yValues[Index] := i;

For index := 0 to Series3.Count - 1 do
Series3.yValues[Index] := i;

如果是代码生成的要激活它们。把active变成true;就行了。

[kaolaxiong]

关注

[footballboy]

怎样用代码设定TChart每条柱上方的数值为Value或Percent形式.还有,当我设每条柱上方的数值为Value形式时,若某条柱Value值为0,怎样能够不显示柱上方的0值.

[ahuige]

for j:=0 to series1.count-1 do
xlabel[j]:='';

[ahuige]

上面写错了

for j:=0 to series1.count-1 do
if xlabel[j]=0 then xlabel[j]:='';

[ahuige]

你老人家执意不用数据控件。只好给你写点麻烦的代码
从上面就可以看出加label的方法了嘛
for j:=0 to series1.count-1 do
xlabel[j]:=myarray[j];

[黄纸片]

用teechart，先在Chart中创建3个柱状图（series1、series2、series3）
for i:=0 to 11 do begin
series1.add(R[i,0], inttostr(i+1), series1.Color);
series2.add(R[i,1], inttostr(i+1), series2.Color);
series3.add(R[i,2], inttostr(i+1), series3.Color);
end;

[footballboy]

怎样才能不显示每条柱上方的数

[footballboy]

up