求Tchart 显示柱状图 实例代码？

Question

求Tchart 显示柱状图 实例代码

Answer 1

双击chart组件，单击chat页，单击series页，单击add，单击standard页，单击bar就可以了

Answer 2

通过代码是如何创建的？
Series:=TLineSeries.Create(TChart1);
while i<50 do
 begin
  i:=i+1;
  Series.Add(i,'日照'+IntToStr(i),clGreen);
 end;
TChart1.AddSeries(Series);
为什么显示的是折线图，还有我是循环50次 ，但x轴只是有10个数据，如何才能将50个都一次显示出来呢

Answer 3

///////////////////////////////////////////
////整理输出图像的函数
function tuxiang(a: integer; b: integer; c: integer;d: integer;
                 e: integer; temp:Tchart; type2:integer;
                 type3:integer): boolean;
var
  Series1: TBarSeries;
  Series2: TPieSeries;
  Series3: TFastLineSeries;
begin
  Series1 := TBarSeries.Create(temp);
  Series2 := TPieSeries.Create(temp);
  Series3 := TFastLineSeries.Create(temp);  if type3 = 1 then
  begin
    if type2=1 then
    begin
      Series1.Add(a, '不及格', clRed);
      Series1.Add(b, '60～69', clPurple);
      Series1.Add(c, '70～79', clYellow);
      Series1.Add(d, '80～89', clBlue);
      Series1.Add(e, '90～100', clGreen);
      temp.AddSeries(Series1);
    end
    else
    begin
      Series1.Add(a, '男生', clRed);
      Series1.Add(b, '女生', clGreen);
      temp.AddSeries(Series1);
    end;
    //Result := true;
  end;  if type3 = 2 then
  begin
    if type2 = 1 then
    begin
      Series2.Add(a, '不及格', clRed);
      Series2.Add(b, '60～69', clPurple);
      Series2.Add(c, '70～79', clYellow);
      Series2.Add(d, '80～89', clBlue);
      Series2.Add(e, '90～100', clGreen);
      temp.AddSeries(Series2);
    end
    else
    begin
      Series2.Add(a, '男生', clRed);
      Series2.Add(b, '女生', clGreen);
      temp.AddSeries(Series2);
    end;
    //Result := true;
  end;  if type3 =3 then
  begin
    if type2 = 1 then
    begin
      Series3.Add(a, '不及格', clRed);
      Series3.Add(b, '60～69', clPurple);
      Series3.Add(c, '70～79', clYellow);
      Series3.Add(d, '80～89', clBlue);
      Series3.Add(e, '90～100', clGreen);
      temp.AddSeries(Series3);
    end
    else
    begin
      Series3.Add(a, '男生', clRed);
      Series3.Add(b, '女生', clGreen);
      temp.AddSeries(Series3);
    end;
  end;
  Result := true;
end;\\\
这个是一个例子里的,不过不是我写的,你看看吧