如何使用chart?将数据和它联系起来

解决方案 »

  1.   

    自己控制,用其本来方法写进去:
      procedure DrawChart;
      var
        i: Integer;  
      begin
        aqStaInfo.First;
        chrStaInfo.Series[0].Clear;
        for i := 0 to aqStaInfo.RecordCount - 1 do
        begin      
          chrStaInfo.Series[0].Add(aqStaInfo.Fields[1].AsFloat, aqStaInfo.Fields[0].AsString);
          aqStaInfo.Next;
        end;
      end;