全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2703
推到 Plurk!
推到 Facebook!

怎樣可以使 TChart 顯示最後幾個數據?

答題得分者是:uptj
KFC123_60201
一般會員


發表:58
回覆:18
積分:15
註冊:2006-07-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-08 16:25:23 IP:139.78.xxx.xxx 訂閱
我設置了每頁顯示 50 個數據,而我的數據不斷增加,我希望每次打開TChart時都顯示最後的十來個數據,我試著將page設為最後一頁,但這樣有問題,因為有時候可能剛好最後一頁只有一個元素。請問怎樣可以要求TChart 顯示最後幾個數據?
salo0610
高階會員


發表:42
回覆:120
積分:107
註冊:2003-02-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-11 08:34:30 IP:220.132.xxx.xxx 未訂閱
 
Delphi 的 Demos 中的TeeChart !! 不知有沒有你要的答案!!!

C:\Program Files\Borland\Delphi7\Demos\TeeChart\
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-11 11:35:38 IP:60.248.xxx.xxx 未訂閱
由資料源去限制筆數
ex sql: select top 50 * from xxx order by orderField desc
uptj
一般會員


發表:5
回覆:5
積分:12
註冊:2005-08-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-08-12 07:49:37 IP:203.70.xxx.xxx 訂閱
procedure AfterAddXY(Sender: TChartSeries;const Step :Double);
begin
With Sender.GetHorizAxis do {with the Horizontal Axis...}
begin
Automatic := False;
Maximum := Sender.XValues.MaxValue; {Always show the last time}
Minimum := Maximum - Step; {show only last desired interval}
end;
{delete all "Invisible" points}
While(Sender.Count > 0) and (Sender.XValues[0] < Sender.GetHorizAxis.Minimum) do
Sender.Delete(0);
end;


//-----用法---------------
step := DateTimeStep[dtTenMinutes];

Series1.AddXY(Now,y_value);
AfterAddXY(Series1,Step);
系統時間:2024-11-23 10:54:36
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!