chart统计图形?

Question

在delphi中用chart做的统计图形，日数据达到10000就改变标记颜色，但查看了series的所有方法，没有发现，delphi方面的报表资料太少了，请教各位该如何做到？

Answer 1

换个思路，放2个series1 series2
series1统计日数据<10000 series2统计日数据>=10000
如果<10000 series2不显示

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  r:Integer;
begin
  Chart1.Series[0].ColorEachPoint:=True;
  for r:=1 to 20 do
  begin
    if r<11 then
      Chart1.Series[0].AddXY(r,r,inttostr(r),clRed)
    else
      Chart1.Series[0].AddXY(r,r,inttostr(r),clGreen);
  end;
end;