<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int i,j,k; Edit2->Text=k; for(i=0;i<9;i ) { if(i!=k) { j=i i 1; } Edit1->Text=j; } } </textarea>

請問各位大大，
為甚麼小弟Edit2預設3的數字，
但是迴圈運算之後，
卻會跳成7呢？
小弟是想寫一個簡單循環運算的程式，
但是Edit2可以輸入任意數字，
譬如輸入3的話，
運算會從0開始運算到8，
中間會跳過3的數值，
請問小弟的程式哪邊有問題呢？
謝謝大家～

編輯記錄

<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int i,j,k; k=StrToInt(Edit2->Text); for(i=0;i<9;i ) { if(i!=k) j=i i 1; Edit1->Text=j; } } </textarea> 這樣就行了～哈哈

請問一下，
如何利用Memo輸入多個數值，
使循環運算跳過多個數值作計算呢？
例如：除了Memo內1 3 5的數值，其餘的數值都納入運算！
謝謝～

編輯記錄

~"~ 想說第二個問題你也可以花15分鐘解出來.....
你的問題應該是在字串如何拆成一個陣列索引加入判斷,我偷懶用元件處理.你參考看看,

<textarea class="cpp" rows="10" cols="60" name="code">void __fastcall TForm1::Button2Click(TObject *Sender) { AnsiString paText; TStringList *pp=new TStringList; //用TStringList 當動態陣列用 //****拆解Memo1 文字 for (int i=0;iLines->Count;i ) { paText = Memo1->Lines->Strings[i].Trim(); while(paText.Trim()!="") { pp->Add(paText.SubString(1,paText.Pos(" ")-1)); //用 空白 當判斷位元 paText.Delete(1,paText.Pos(" ")); if (paText.Pos(" ")<1) { pp->Add(paText.Trim()); paText=""; } } } //*****拆解結束 //**累加數值開始 int j=0; for (int i=0;iText.ToIntDef(1);i ) { if (pp->IndexOf(i)==-1) j=j i; else Memo2->Lines->Add(i); //**額外顯示 沒加到的數值,chk用 } Label1->Caption=j; delete pp; } </textarea>

請問一下~
假使Memo1中數值出現重複的話~
怎麼辦呢?
謝謝

<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::Button2Click(TObject *Sender) { AnsiString paText; AnsiString paStr; //接收暫存文字 TStringList *pp=new TStringList; //用TStringList 當動態陣列用 //****拆解Memo1 文字 for (int i=0;iLines->Count;i ) { paText = Memo1->Lines->Strings[i].Trim(); while(paText.Trim()!="") { paStr=paText.SubString(1,paText.Pos(" ")-1); if (pp->IndexOf(paStr)==-1) //~.~ 避免Index重覆 pp->Add(paStr); //用 空白 當判斷位元 paText.Delete(1,paText.Pos(" ")); if (paText.Pos(" ")<1) { if (pp->IndexOf(paText.Trim())==-1) //~.~ 避免Index重覆 pp->Add(paText.Trim()); paText=""; } } } //*****拆解結束 //**累加數值開始 int j=0; for (int i=0;iText.ToIntDef(1);i ) { if (pp->IndexOf(i)==-1) j=j i; else Memo2->Lines->Add(i); //**額外顯示 沒加到的數值,chk用 } Label1->Caption=j; delete pp; } </textarea>

感謝大大的指導~
一般在BCC中~
是否有甚麼函數可以判別奇偶數呢？
小弟想將運算數值可以選擇性"奇偶數"運算，
是否是從 //**累加數值開始
這邊開始判別？
小弟試了一些方法～
就是將數值除以二判別，
但是卻...，
不盡理想

編輯記錄

你可以考慮使用%餘除運算子。

===================引 用 mirood 文 章===================
感謝大大的指導~
一般在BCC中~
是否有甚麼函數可以判別奇偶數呢？
小弟想將運算數值可以選擇性"奇偶數"運算，
是否是從 //**累加數值開始
這邊開始判別？
小弟試了一些方法～
就是將數值除以二判別，
但是卻...，
不盡理想

------
~§~迷時師渡，悟了自渡~§~

謝謝可以～
我了解了～

<textarea class="cpp" rows="10" cols="60" name="code">void __fastcall TForm1::Button2Click(TObject *Sender) { AnsiString paText; AnsiString paStr; //接收暫存文字 TStringList *pp=new TStringList; //用TStringList 當動態陣列用 //****拆解Memo1 文字 for (int i=0;iLines->Count;i ) { paText = Memo1->Lines->Strings[i].Trim(); while(paText.Trim()!="") { paStr=paText.SubString(1,paText.Pos(" ")-1); if (pp->IndexOf(paStr)==-1) //~.~ 避免Index重覆 pp->Add(paStr); //用 空白 當判斷位元 paText.Delete(1,paText.Pos(" ")); if (paText.Pos(" ")<1) { if (pp->IndexOf(paText.Trim())==-1) //~.~ 避免Index重覆 pp->Add(paText.Trim()); paText=""; } } } //*****拆解結束 //**累加數值開始 int j=0; for (int i=0;iText.ToIntDef(1);i ) { if(i%2!=0)//**全部為奇數數值 { if (pp->IndexOf(i)==-1) j=j i; } } Label1->Caption=j; delete pp; } </textarea>

編輯記錄