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

讀檔繪Series問題

答題得分者是:taishyang
Vincent2424
一般會員


發表:57
回覆:40
積分:19
註冊:2004-12-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-03-29 16:16:50 IP:163.25.xxx.xxx 未訂閱
請問各位大大.. 我想將下列的txt檔中的點資料,讀入Chart之Series1、Series2中 繪成如下 我有參考這兩篇 http://delphi.ktop.com.tw/topic.php?topic_id=45703 http://delphi.ktop.com.tw/topic.php?topic_id=38155 但是我的X座標值不是固定的,而且我該如何跳過.txt檔中的文字而正確取得X、Y座標值呢?? 目前做法如下,但是是錯的,請問各位大大我該如何改code呢???
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList* Data1 = new TStringList();
  Data1->LoadFromFile("Data1.txt");      for (int i=0;iCount-1;i++)
  {      
  Series1->AddXY(Data1->Strings[i].ToInt(),Data1->Strings[i+1].ToInt(),"",clRed);
  }      delete Data1;
        
}
 
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-03-29 18:57:11 IP:210.68.xxx.xxx 未訂閱
您好: 試試下面的code,以Series1為例,且文字檔內容如下
Series1    X value   Y value
==============================
    10       2                   <--第4列
    12.5     23.4
    15.3     12
    17.5     33
    26       58
    32.2     26.5
    42.5     82
    49.2     41        TStringList* sl1 = new TStringList();
   TStringList* sl2 = new TStringList();
   sl1->LoadFromFile("1.txt");
   AnsiString sz1 ="";
   for (int i=4; iCount; i  )  //所以從第4列開始
   {
      sl2->CommaText=sl1->Strings[i];
      for (int j=0; jCount; j =2)
      {
         Series1->AddXY(sl2->Strings[j].ToDouble(),
                        sl2->Strings[j 1].ToDouble(),
                        "",
                        clRed);
      }
   }
   delete sl1;
   delete sl2;
順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~ 發表人 -
Vincent2424
一般會員


發表:57
回覆:40
積分:19
註冊:2004-12-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-03-29 19:15:44 IP:219.84.xxx.xxx 未訂閱
感謝taishyang版主大大解答,這正是我要的。 能否再請問那我要再加入Series2的座標資料同時讀入並繪出,要如何改呢.. 感激..
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-03-29 19:17:53 IP:210.68.xxx.xxx 未訂閱
引言:否再請問那我要再加入Series2的座標資料同時讀入並繪出,要如何改呢
小弟覺得這部分應該留給您自己來作對您比較有幫助
Vincent2424
一般會員


發表:57
回覆:40
積分:19
註冊:2004-12-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-03-29 19:19:50 IP:219.84.xxx.xxx 未訂閱
感謝版主大大指教,我研究看看囉~~
系統時間:2024-05-17 17:35:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!