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

請問如何在tchart中動態產生series?

尚未結案
se0528
一般會員


發表:13
回覆:22
積分:7
註冊:2005-05-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-26 17:00:38 IP:163.28.xxx.xxx 未訂閱
看過一些文章,大多是介紹Delphi的語法,我是新手,真的看不太懂,所以想上來問問看BCB的語法,希望各位不要責難!!
markov
中階會員


發表:55
回覆:135
積分:53
註冊:2003-12-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-01 15:35:53 IP:59.120.xxx.xxx 未訂閱
        TBarSeries *BarSeries=new TBarSeries(Chart1);
        BarSeries->ParentChart=Chart1;
        Chart1->AddSeries(BarSeries);
        BarSeries->Add( 10,"123",clRed );
        delete BarSeries;
 
se0528
一般會員


發表:13
回覆:22
積分:7
註冊:2005-05-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-01 17:08:00 IP:163.28.xxx.xxx 未訂閱
markov 你好: 非常感謝你回應我的疑惑,但是我的series的數目是不確定的,必須輸入後才知道有幾條,這個方法也可以處理嗎?
markov
中階會員


發表:55
回覆:135
積分:53
註冊:2003-12-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-07-03 16:57:48 IP:61.229.xxx.xxx 未訂閱
可以, 你先試試看有問題再說
se0528
一般會員


發表:13
回覆:22
積分:7
註冊:2005-05-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-07-05 16:28:38 IP:163.28.xxx.xxx 未訂閱
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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-07-05 19:15:57 IP:210.68.xxx.xxx 未訂閱
您好: 試試下面的程式碼
//---------------------------------------------------------------------------
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

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-07-06 08:54:56 IP:163.28.xxx.xxx 未訂閱
引言: 您好: 試試下面的程式碼
//---------------------------------------------------------------------------
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

發送簡訊給我
#8 引用回覆 回覆 發表時間:2009-10-24 18:08:33 IP:123.192.xxx.xxx 訂閱
請問我照著下列輸入
可是chart確沒series產生
是什麼問題呢?

===================引 用 markov 文 章===================
        TBarSeries *BarSeries=new TBarSeries(Chart1);
        BarSeries->ParentChart=Chart1;
        Chart1->AddSeries(BarSeries);
        BarSeries->Add( 10,"123",clRed );
        delete BarSeries;
 
系統時間:2024-03-29 10:00:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!