請問如何在tchart中動態產生series? |
尚未結案
|
se0528
一般會員 發表:13 回覆:22 積分:7 註冊:2005-05-04 發送簡訊給我 |
|
markov
中階會員 發表:55 回覆:135 積分:53 註冊:2003-12-01 發送簡訊給我 |
|
se0528
一般會員 發表:13 回覆:22 積分:7 註冊:2005-05-04 發送簡訊給我 |
|
markov
中階會員 發表:55 回覆:135 積分:53 註冊:2003-12-01 發送簡訊給我 |
|
se0528
一般會員 發表:13 回覆:22 積分:7 註冊:2005-05-04 發送簡訊給我 |
Markov你好: 我已經可以產生數條series,但我應該如何將這10*10的矩陣分別顯示在這10條 數線上,下列是我的程式碼:
Double w[10][10]={{1.557457701,0.831335071,1.119905835,0.018420816,1.672962333,0.524936653,-0.387613143,-1.074548219,-1.077867614,-1.273438631},{0.669734901,0.20047528,-1.160229775,-0.346260131,-1.041648341,-2.256085543,1.101486363,-1.912996599,1.358805317,0.297500684},{-0.015225891,1.191818622,1.013308963,-0.066472509,1.576859508,-0.582201526,-2.120532889,0.460155605,-0.493741108,-1.603283867}}; Chart1->RemoveAllSeries(); for (int i=1;i<=10;i ) { TLineSeries *Series=new TLineSeries(Chart1); Series->ParentChart=Chart1; Chart1->AddSeries(Series); Series->AddXY(i,10); }謝謝!! |
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
您好:
試試下面的程式碼
//--------------------------------------------------------------------------- TList *gList; TLineSeries *ls; void __fastcall TForm1::Button1Click(TObject *Sender) { Double w[10][10]={{1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {2, 2, 2, 2, 2, 2, 2, 2, 2, 2}, {3, 3, 3, 3, 3, 3, 3, 3, 3, 3}, {4, 4, 4, 4, 4, 4, 4, 4, 4, 4}, {5, 5, 5, 5, 5, 5, 5, 5, 5, 5}, {6, 6, 6, 6, 6, 6, 6, 6, 6, 6}, {7, 7, 7, 7, 7, 7, 7, 7, 7, 7}, {8, 8, 8, 8, 8, 8, 8, 8, 8, 8}, {9, 9, 9, 9, 9, 9, 9, 9, 9, 9}, {10, 10, 10, 10, 10, 10, 10, 10, 10, 10}, }; Chart1->RemoveAllSeries(); for (int i=1; i<=10; i ) { ls = new TLineSeries(Chart1); ls->ParentChart = Chart1; gList->Add(ls); for (int x=0; x<10; x ) { for (int y=0; y<10; y ) { ls->AddXY(x, w[i-1][y]); } } } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { gList = new TList; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormDestroy(TObject *Sender) { if(gList->Count>0) { delete (TLineSeries *)gList->Items[gList->Count-1]; gList->Delete(gList->Count-1); } delete gList; } //---------------------------------------------------------------------------順心 |
se0528
一般會員 發表:13 回覆:22 積分:7 註冊:2005-05-04 發送簡訊給我 |
引言: 您好: 試試下面的程式碼//--------------------------------------------------------------------------- TList *gList; TLineSeries *ls; void __fastcall TForm1::Button1Click(TObject *Sender) { Double w[10][10]={{1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, {2, 2, 2, 2, 2, 2, 2, 2, 2, 2}, {3, 3, 3, 3, 3, 3, 3, 3, 3, 3}, {4, 4, 4, 4, 4, 4, 4, 4, 4, 4}, {5, 5, 5, 5, 5, 5, 5, 5, 5, 5}, {6, 6, 6, 6, 6, 6, 6, 6, 6, 6}, {7, 7, 7, 7, 7, 7, 7, 7, 7, 7}, {8, 8, 8, 8, 8, 8, 8, 8, 8, 8}, {9, 9, 9, 9, 9, 9, 9, 9, 9, 9}, {10, 10, 10, 10, 10, 10, 10, 10, 10, 10}, }; Chart1->RemoveAllSeries(); for (int i=1; i<=10; i ) { ls = new TLineSeries(Chart1); ls->ParentChart = Chart1; gList->Add(ls); for (int x=0; x<10; x ) { for (int y=0; y<10; y ) { ls->AddXY(x, w[i-1][y]); } } } } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { gList = new TList; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormDestroy(TObject *Sender) { if(gList->Count>0) { delete (TLineSeries *)gList->Items[gList->Count-1]; gList->Delete(gList->Count-1); } delete gList; } //---------------------------------------------------------------------------順心 >>< face="Verdana, Arial, Helvetica"> 謝謝兩位的幫助,幫我解決這個問題,謝謝!! |
wander7617
一般會員 發表:4 回覆:6 積分:2 註冊:2009-10-10 發送簡訊給我 |
請問我照著下列輸入
可是chart確沒series產生 是什麼問題呢? ===================引 用 markov 文 章=================== TBarSeries *BarSeries=new TBarSeries(Chart1); BarSeries->ParentChart=Chart1; Chart1->AddSeries(BarSeries); BarSeries->Add( 10,"123",clRed ); delete BarSeries; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |