請教各位 我的圖內有個Series 使用TQcSeries 然後利用 Tchart提供 drawValues函數 來畫圖 傳入 Tvec 及 Series DrawValues函數定義如下 Procedure DrawValues(const Vectors: array of TVec; Series: TChartSeries); 我的Tvec是用 塞值進去的，（非Db 連結) 而每個值有個對應的日期 我在下完DrawValues函數後 有繪制出圖 但是每個點 對應的日期，我要如何顯示在X軸?

小範例如下 TeeChart的Series每塞完一個點 就會幫你增加相對應的Series1.XLabel[I] 這時候再跑迴圈塞進去就好。    

procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
begin
//  Series1.ValuesList.Clear;
  //SetLength(Series1.XValues.Value,25);
  //SetLength(Series1.YValues.Value,25);
  //Series1.XValues.
   Series1.Clear;
  Chart1.BottomAxis.Automatic:=False;
  Chart1.BottomAxis.Maximum:=25;
  Chart1.BottomAxis.Minimum:=1;
  Chart1.BottomAxis.Increment:=1;
  Chart1.LeftAxis.Automatic:=False;
  Chart1.LeftAxis.Maximum:=25;
  Chart1.LeftAxis.Minimum:=1;
  Chart1.LeftAxis.Increment:=1;
  for I:=0 to 24 do
  begin
    //Series1.XValues.Value[I]:=I;
    //if I=20 then
    //  Series1.YValues.Value[I]:=NAN
    //else
    //  Series1.YValues.Value[I]:=I;
    //Series1.AddNullXY()
    if I=20 then
      Series1.AddNullXY(I,I,'')//填入不畫的點,實際上根本就是顏色設成clNone
    else
    if I=10 then
      Series1.AddXY(I,I,'test')
    else
      Series1.AddXY(I,I,'');
    Series1.XLabel[I]:=DateTimeToStr(Trunc(Now));//->這邊填入日期
  end;
  chart1.Title.Text.Text:='test';
  //Series1.RefreshSeries;
  //Series1.Repaint;
end;

發表人 - StrongLemon 於 2004/12/11 22:20:09

可否解釋一下呢  我看不懂您的範例

範例是假設有25點 在每加完一點之後，設定XLabel[I]=為目前日期。 實際跑過會比較容易瞭解。