edit1=new TEdit(Form1); edit1->Parent=Form1; ????b[i][j][4]=StrToIntDef(edit1->Text,0)???? 這樣一來可以將我新設立的edit->Text編號 但裡面的值是0 請問該如何把裡面的值變成我所輸入的值呢？ 謝謝您

小弟的做法是，把0改成InputBox("編號","輸入編號：","")，就可以了！ 如下：

Edit1=new TEdit(Form1);
Edit1->Parent=Form1;
Edit1->Text=(Edit1->Text,InputBox("編號","輸入編號：",""));

不知是否為妳要的！ 發表人 - cashyy 於 2005/03/25 16:52:04

謝謝你提供的意見喔 不過 我需要的值是直接輸入在 >

引言: int Num=0; .... ... .. edit1=new TEdit(Form1); edit1->Parent=Form1; ????b[i][j][4]=StrToIntDef(edit1->Text,Num ); //不太明白你的意思,若將0改成整數型態的變數,此Num變數專門作為接收你給的字串轉換失敗的預設值,則b陣列內容將不再只是0~而是連續的數字 edit1->Text=IntToStr(b[i][j][4]); //將b陣列的值給edit1 這樣一來可以將我新設立的edit->Text編號 但裡面的值是0 請問該如何把裡面的值變成我所輸入的值呢？ 謝謝您

我所想寫的是一個可以計算n個人(由使用者輸入)的成績(假如是：國英數理)計算表，所以當我輸入一個數字(假設是5)，再按一下button，就可以產生20個edit，及5個button 我所希望知道的答案是： 當我輸入國英數理的成績 設定一個陣列b[i][j][3]///第i行的第j個(可以有3個字元) 可以代替我輸入的成績 按一下新產生的button就可利用b[i][j][3]來進行相加減 所以希望edit1->Text為我輸入的值(即成績)

謝謝大家的回應，我同學及liangnet的幫忙，讓我解決了這個問題，下面我用驚嘆號框起來的地方，則是我寫出程式的重點所在！ class data_grade { !!!!TEdit *edit[100][6];//可輸入100組，每組6個edit!!! !!!!TButton *but[100][10];//標示按哪個button可以對應到哪個fastcall!!! TLabel *lab[100][10];//顯示總分及平均的label !!!!void __fastcall MyButtonOnClick1(TObject *Sender);//總分!!!! void get_new();//產生新的元件(button, edit, label) }; void __fastcall data_grade::MyButtonOnClick1(TObject *Sender) {   !!!! TButton *Button = dynamic_cast(Sender); int Row = Button->Tag;!!!! k=2; for(k=2;k<6;k ) { sum[Row]=sum[Row] StrToFloat(edit[Row][k]->Text); } lab[Row][7]->Caption=sum[Row]; } void data_grade::get_new() { i=0; j=0; for(i=0;iParent=Form1; but1->Height=25; but1->Width=70; but1->Left=580; but1->Top=80; but1->Caption="成績排序"; but1->MyButtonOnClick3; } but[i][j]=new TButton(Form1); but[i][j]->Parent=Form1; but[i][j]->Height=30; but[i][j]->Width=40; but[i][j]->Left=70*j 30; but[i][j]->Top=50*i 150; but[i][j]->Tag = i; but[i][j]->Caption="計算"; if(j==6) { but[i][j]->MyButtonOnClick1; } } else if(j==7||j==9) { lab[i][j]=new TLabel(Form1); lab[i][j]->Parent=Form1; lab[i][j]->Height=30; lab[i][j]->Width=10; lab[i][j]->Left=70*j 30; lab[i][j]->Top=50*i 150; } else if(j<6) { edit[i][j]=new TEdit(Form1); edit[i][j]->Parent=Form1; edit[i][j]->Height=30; edit[i][j]->Width=40; edit[i][j]->Left=70*j 30; edit[i][j]->Top=50*i 150; } } } } void __fastcall TForm1::Button1Click(TObject *Sender) { data_grade *g1=new data_grade; g1->a=StrToInt(Edit1->Text); g1->get_new(); } //--------------------------------------------------------------------------- < >< >