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

請問動態產生TListBox物件?

答題得分者是:zaguan
ppippenkimo
一般會員


發表:7
回覆:17
積分:4
註冊:2003-11-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-25 14:35:39 IP:211.23.xxx.xxx 未訂閱
不好意思,小弟問個笨問題,在下目前要將資料放到很多個(不確定數目)ListBox,請問該如何正確的下程式碼呢? ---------in xxx.h------------------------ public: // User declarations TListBox *ListBox; ---------in xxx.cpp---------------------- for(i = 0; i < 變數; i ) ListBox[i]->Items->Add("xxxxxxxxxxxxx"); 麻煩各位大大指點!
m8815010
版主


發表:99
回覆:372
積分:289
註冊:2003-11-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-25 15:25:23 IP:61.63.xxx.xxx 未訂閱
引言: 不好意思,小弟問個笨問題,在下目前要將資料放到很多個(不確定數目)ListBox,請問該如何正確的下程式碼呢? ---------in xxx.h------------------------ public: // User declarations TListBox *ListBox; ---------in xxx.cpp---------------------- for(i = 0; i < 變數; i ) ListBox[i]->Items->Add("xxxxxxxxxxxxx"); 麻煩各位大大指點!
ppippenkimo你好: 嗯……這是你要的嗎? < class="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { int Num=5; TStringList* s=new TStringList(); for (int i=1;i<=Num;i ) { TListBox* lb; lb=new TListBox(this); lb->Parent=this; s->AddObject(IntToStr(i),lb); } for (int i=0;iCount;i ) { TListBox* t=(TListBox*)s->Objects[i]; t->Left=1 (i*200); t->Top=1; t->Width=150; t->Height=50; t->Items->Add(i); } delete s; } 有問題再說吧!
ppippenkimo
一般會員


發表:7
回覆:17
積分:4
註冊:2003-11-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-25 19:24:48 IP:211.23.xxx.xxx 未訂閱
m8815010兄您好!    小弟是想用個 int i = 0 ~ ? 迴圈將每次傳回的資料放到對應到每個 i 值,不同的ListBox(StringList),但是事前並不知道何時結束(depend on i),ListBox 數目也是depend on i,    我思考的寫法:    TStringList *TB[max] = new TStringList;//-> "Error: E2275 { excepcted    ADOQuery->Open();    for(i = 0; i < max; i++) {    while(!Form1->ADOQuery->Eof)   {       TB[i]->Add(ADOQuery->FieldByName("Name")->AsString);       ADOQuery->Next();   } }    產生上述的 Error後,我再另外寫了以下:    vector* TB = new vector(); TB->push_back(new TListBox(this)); for(i = 0; i < max; i )) { ((TListBox*)(TB->at( i )))->Parent = this; while(!Form1->ADOQuery->Eof) { ((TListBox*)(TB->at( i )))->Items->Add(ADOQuery->FieldByName("Name")->AsString); Form1->ADOQuery->Next(); } } 結果出現以下錯誤訊息!
請麻煩指導不才我如何更正,非常感激。
zaguan
一般會員


發表:11
回覆:18
積分:10
註冊:2002-03-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-25 19:47:13 IP:140.118.xxx.xxx 未訂閱
vector* TB = new vector();
for(i = 0; i < max; i  ))
{
  TB->push_back(new TListBox(this));
  ((TListBox*)(TB->at( i )))->Parent = this;
  ......
}
Control 物件,必須指定 Parent 正面思考~ XD
ppippenkimo
一般會員


發表:7
回覆:17
積分:4
註冊:2003-11-15

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-25 19:53:53 IP:211.23.xxx.xxx 未訂閱
非常感激 m8815010大哥 & Zaguan 的回答 m(_ _)m 不才小弟託您們指導總算不至於想破頭 :)
系統時間:2024-04-24 4:05:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!