请教一下？

请问以下的TBarSeries是什么东东？  
  怎么编译不通过啊！  
   
  操作TChar的简单示例  
  下面是简单的例子：  
   
  var  
      i,   j,   kum:   Integer;  
      s,   t:   TBarSeries;  
  begin  
      with   Chart1   do  
      begin  
          //   Title   of   the   Chart  
          SeriesList.Clear;  
          Title.Text.Clear;  
          Title.Text.Add('My   Title   for   Char');  
          Legend.Visible   :=True;  
          Legend.LegendStyle   :=lsAuto;  
          Legend.TextStyle   :=   ltsLeftValue;  
   
          //   Create   first   Series  
          s   :=   TBarSeries.Create(nil);  
          //   Clear   it  
          s.Clear;  
          s.BarStyle   :=bsRectGradient;  
          s.ColorEachPoint   :=True;  
          //   set   the   title  
          s.Title   :=   'Bar   1';  
          //   determine   the   chart,   this   series   belongs   to  
          s.ParentChart   :=   Chart1;  
          //   the   x-axis   shall   use   date  
          s.XValues.DateTime   :=   False;  
          s.AutoBarSize   :=False;  
          s.BarWidthPercent   :=   70;  
          s.OffsetPercent   :=0;  
          s.Marks.Style   :=smsPercent;  
   
   
          //   create   the   second   Series  
          t   :=   TBarSeries.Create(nil);  
          t.Clear;  
          t.Title               :=   'Bar   2';  
          t.ParentChart   :=   Chart1;  
          t.XValues.DateTime   :=   False;  
          //   this   series   uses   the   right   axis  
          t.VertAxis   :=   aLeftAxis;  
   
          //   now   add   the   random   values  
          Randomize;  
          for   i   :=   0   to   5   do  
          begin  
              j   :=   Random(100)   +   1;  
              s.AddXY(i,   j);  
              kum   :=   j;  
              t.AddXY(i   ,   kum   +   Random(20));  
          end;  
      end;  
  end;  
   
  问题点数：50、回复次数：1Top

1 楼findcsdn（searchcsdn）回复于 2002-12-20 16:51:25 得分 50

TBarSeries;     chart控件的一个系列类型,用于显示柱状图。  
  他的定义在   Series   单元中。  
  uses    
      Series;Top

相关问题

• series
• tbarseries
• chart
• legend
• clear
• title
• create

• 帖主：newnewworm
• findcsdn

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载