請問各位大大~~ 如何達到這樣的程序 我是這樣寫的

procedure TForm1.Timer1Timer(Sender: TObject);
var
 V:Integer; // Value
 L:String; //Label
begin
 Randomize;
 Count:=Count 1;
 V:=Random(20); // Series 值
 L:='V' IntToStr(Count); // 軸名稱
 Series1.Add(V , L, clYellow  );
 IF Series1.LastValueIndex>10 then
   Series1.Delete(0);
 Series1.RefreshSeries;
end;

到第10個的時候是ok的 但是後面進來的數值會一直維持停留顯示在最右邊 不會往左推 如何才能讓原本已在chart上的數值往左推 謝謝~~~~~教一下~

kan0515您好:   參考一下下面的連結(BCB方式):   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28115 不曉得是不是您要的 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

taishyang大大您好~~~ 我的確是參考這篇去寫的~~ 但是就是找不到該如何讓剩下的數值自動往後退~~ 新的數值進來會繼續累積在最右邊 或說是~刪除了最左邊後 原本的數值仍會維持在原本的位置 不會往左退~~

var Form1: TForm1; Count:integer=0; procedure TForm1.Timer1Timer(Sender: TObject); var V:Integer; // Value tmpX:double; L:String; //Label begin Randomize; Count:=Count 1; V:=Random(20); // Series 值 L:='V' IntToStr(Count); // 軸名稱 IF Count>10 then with Series1 do begin tmpX:=XValues[1]-XValues[0]; Delete(0); AddXY( XValues.Last tmpX, V, L,clTeeColor); end else Series1.Add(V , L, clTeeColor ); Series1.RefreshSeries; end;

這似乎是Add Method 問題 您的程式改寫如下 procedure TForm1.Timer1Timer(Sender: TObject); var V:Integer; // Value L:String; //Label begin Randomize; IF Series1.LastValueIndex>10 then Series1.Delete(0); Count:=Count 1; V:=Random(20); // Series 值 L:='V' IntToStr(Count); // 軸名稱 Series1.AddXY(count,V,L,clYellow ); end; 即可工作正常

謝謝ctx62及willykcwen兩位大大 感謝您們的指導~~~ 兩位的方法都是ok的，謝謝～～～～

willykcwen的方法可行，但X軸的坐标显示总是大于10个

順便請問一個問題，如何加大X軸區間啊？ 譬如： 1cm有200個data，我要讓 1cm僅有100個data... 似乎不是使用desired increased