int col = 39;  // 要處理的欄位數 (Column)
    int row = 27;  // 要處理的行數 (Row)
    if (RichEdit2->Lines->Count < row+1) { // 如果 RichEdit 行數不足 10 行
        for (int i=RichEdit2->Lines->Count; i<10; i++) {
            RichEdit2->Lines->Add("");  // 產生足夠的空行
        }
    }        AnsiString temp = RichEdit2->Lines->Strings[row];  // 設 temp 為 RichEdit1 第 row 行的內容
    AnsiString t1 = MaskEdit5->Text;  // 設 t1 為 MaskEdit1 的內容        int len1 = t1.Length();  // 設 len1 為 MaskEdit1 的字數        if (len1 > 0 ) {
        int len = temp.Length();  // 設 len 為 RichEdit1 第 row 行內容的字數
        if(len < col){  // 如果資料行字元數少於 col 值，則以空白字元補足它
            RichEdit2->Lines->Strings[row] = temp + AnsiString::StringOfChar(' ', col - len);
            temp = RichEdit2->Lines->Strings[row];
        }            if(len1 > 0){  // 如果 MaskEdit1 有內容
            t1 = "#"+t1;  // 在 t1 前加上 % 符號
        }            temp = temp.SubString(1, col-1) + t1 + temp.SubString(col+oldlen, temp.Length()-((col+oldlen)-1));
        oldlen = t1.Length();   // 設定 oldlen 為兩個 MaskEdit 內容的長度 (包含 % 符號在內)
    } else
         {
        temp = temp.SubString(1, col-1) + temp.SubString(col+oldlen, temp.Length()-((col+oldlen)-1));
        oldlen = 0;
    }
    RichEdit2->Lines->Strings[row] = temp; // 將重新組合過的字串設回給 RichEdit 第 row 行
     if(BitBtn8->OnClick) //如果要清除按下
        {
       RichEdit2->Lines->Strings[row] = "";
       }    

引言: Miki-lion 妳好： 上次不是有跟妳提到，在共用事件中可以透過 Sender 來識別呼叫程序的元件嗎？以判斷式來識別作用中的元件，就可以分別處理不同的資料了。

if(MaskEdit1->Text.Length() > 0)
{
    int row = 6;//更改這裏寫6個程式
    int col = 12;
     AnsiString temp = RichEdit1->Lines->Strings[row];        if (((TMaskEdit *)Sender)->Text.Length() > 0) {
        int len = temp.Length();
        if(len < col){
            RichEdit1->Lines->Strings[row] = temp   AnsiString::StringOfChar('_', col - len);
            temp = RichEdit1->Lines->Strings[row];
        }
        temp = temp.SubString(1, col-1)   "%" ((TMaskEdit *)Sender)->Text   temp.SubString(col oldlen, temp.Length()-((col oldlen)-1));
        oldlen = ((TMaskEdit *)Sender)->Text.Length()   1;
    } else {
        temp = temp.SubString(1, col-1)   temp.SubString(col oldlen, temp.Length()-((col oldlen)-1));
        oldlen = 0;
    }
    RichEdit1->Lines->Strings[row] = "";//空字串代替

if ((TMaskEdit *)Sender)->Text.Length() > 0) {
    int col;
    int row;
    if (Sender == MaskEdit1) {
        col = 11;
        row = 9;
    } else if(Sender == MaskEdit2) {
        col = 12;
        row = 20;
    }
    ......
} else {
    ......
}

 
void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
 MaskEdit4->Text ="";
 MaskEdit5->Text ="";
 MaskEdit6->Text ="";        if ((TMaskEdit *)Sender)->Text.Length() > 0) {]//他說這行有錯誤在，我有把下面同樣的判斷給註解掉了，但還是不行，如果元件內的Text長度大於0就開始做，這樣沒錯啊，我想不出來了
    int col;
    int row;
    if (Sender == MaskEdit4) {
        col = 11;
        row = 10;
    } else if(Sender == MaskEdit5) {
        col = 12;
        row = 20;
    }
      else if(Sender == MaskEdit6) {
        col = 13;
        row = 30;
    }        AnsiString temp = RichEdit1->Lines->Strings[row];        //if (((TMaskEdit *)Sender)->Text.Length() > 0) {
        int len = temp.Length();
        if(len < col){
            RichEdit1->Lines->Strings[row] = temp   AnsiString::StringOfChar('_', col - len);
            temp = RichEdit1->Lines->Strings[row];
        }
        temp = temp.SubString(1, col-1)   ((TMaskEdit *)Sender)->Text   temp.SubString(col oldlen, temp.Length()-((col oldlen)-1));
        oldlen = ((TMaskEdit *)Sender)->Text.Length()   1;
    } else {
        temp = temp.SubString(1, col-1)   temp.SubString(col oldlen, temp.Length()-((col oldlen)-1));
        oldlen = 0;
    }
    RichEdit1->Lines->Strings[row] = ""; //空字串代替
   }
}

// 於 Unit1.h 檔案內：
__published:        // IDE-managed Components
    void __fastcall RadioButtonClick(TObject *Sender);    private:        // User declarations
        void __fastcall ResetRadioBtnStat();    // 於 Unit1.cpp 檔案內：
void __fastcall TForm1::ResetRadioBtnStat()
{
    int col[4];  // 要處理的欄位數陣列 (Column)
    int row[4];  // 要處理的行數陣列 (Row)        col[0] = 36;
    row[0] = 47;        col[1] = 37;
    row[1] = 48;        col[2] = 41;
    row[2] = 49;        col[3] = 42;
    row[3] = 50;        AnsiString temp;
    // 清除所有 RadioButton 對應於 RichEdit 內的 "&true" 字樣
    for(int i=0; i<4; i  ){
        temp = RichEdit2->Lines->Strings[row[i]];  // 設 temp 為 RichEdit1 第 row 行的內容
        if(temp.SubString(col[i], 5) == "&true"){ // 如果對應的位置是 "&true" 字樣，則予以清除掉
            temp = temp.SubString(1, col[i]-1)   temp.SubString(col[i] 5, temp.Length()-((col[i] 5)-1));
            RichEdit2->Lines->Strings[row[i]] = temp; // 將去除掉 "&true" 字樣的字串設回給 RichEdit 第 row 行
        }
    }
}    void __fastcall TForm1::RadioButtonClick(TObject *Sender)
{
    int col;  // 要處理的欄位數 (Column)
    int row;  // 要處理的行數 (Row)        if(Sender == RadioButton3){
        col = 36;
        row = 47;
    }else if(Sender == RadioButton4){
        col = 37;
        row = 48;
    }else if(Sender == RadioButton5){
        col = 41;
        row = 49;
    }else if(Sender == RadioButton6){
        col = 42;
        row = 50;
    }        // 先清除所有 RadioButton 對應於 RichEdit 內的資料
    ResetRadioBtnStat();        AnsiString temp = RichEdit2->Lines->Strings[row];  // 設 temp 為 RichEdit1 第 row 行的內容
    temp = temp.SubString(1, col-1)   "&true"  temp.SubString(col 5, temp.Length()-((col 5)-1));
    RichEdit2->Lines->Strings[row] = temp; // 將重新組合過的字串設回給 RichEdit 第 row 行
}    void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
    RadioButton3->Checked = false;
    RadioButton4->Checked = false;
    RadioButton5->Checked = false;
    RadioButton6->Checked = false;        ResetRadioBtnStat();
}

引言: 3. 將那四個 RadioButton 的 OnClick 事件全部指向前述的 RadioButtonClick 處理程序。

引言: 3. 將那四個 RadioButton 的 OnClick 事件全部指向前述的 RadioButtonClick 處理程序。

就是在元件屬性Events->OnClick加上RadioButtonClick這樣對吧，剛才想到了。 還有在// 於 Unit1.h 檔案內： /--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TMainMenu *MainMenu1; TMenuItem *N1; . . . 略 void __fastcall RadioButtonClick(TObject *Sender);//這行出現了問題 private: // User declarations void __fastcall ResetRadioBtnStat();//加這行 public: // User declarations __fastcall TForm1(TComponent* Owner); }; 我這樣加沒錯吧~ 發表人 -

引言:不過RadioButton3的程式碼卻不見了

引言: Miki-lion 妳好：

引言:不過RadioButton3的程式碼卻不見了

妳大概是無意中將 RadioButton3Click 改成 RadioButtonClick 了，因此 RadioButton3 不見了，而 RadioButtonClick 的宣告卻多了一個出來。

 
int col[4];  
int row[4]; 宣告增加    for(int i=0; i<4; i  ){//迴圈數是要更改成幾個按鈕就多少嗎?    if(temp.SubString(col[i], 5) == "&true")當中的5指的是&true5個字元嗎?

引言:我想請問一下有關於ResetRadioBtnStat();部分 如果我不是單只做4個RadioButton，那需要修改哪些地方 int col[4]; int row[4]; 宣告增加 for(int i=0; i<4; i ){//迴圈數是要更改成幾個按鈕就多少嗎? if(temp.SubString(col[i], 5) == "&true")當中的5指的是&true5個字元嗎? 除了這幾個地方還有需要更改的嗎?

__published:    // IDE-managed Components    private:        // User declarations    public:         // User declarations

 void __fastcall TForm1::CheckBoxClick(TObject *Sender)
{
    int col;  // 要處理的欄位數 (Column)
    int row;  // 要處理的行數 (Row)        if(Sender == CheckBox5){
        col = 39;
        row = 59;
    }else if(Sender == CheckBox6){
        col = 37;
        row = 60;
    }else if(Sender == CheckBox7){
        col = 42;
        row = 61;
    }else if(Sender == CheckBox8){
        col = 45;
        row = 62;
    }        //ResetCheckBoxBtnStat();        AnsiString temp = RichEdit2->Lines->Strings[row];  // 設 temp 為 RichEdit1 第 row 行的內容
    temp = temp.SubString(1, col-1)   "&true"  temp.SubString(col 5, temp.Length()-((col 5)-1));
    RichEdit2->Lines->Strings[row] = temp; // 將重新組合過的字串設回給 RichEdit 第 row 行
//增加的語法
    if(Sender == CheckBox5->false){
       ResetCheckBoxBtnStat();
    }else if(Sender == CheckBox6->false){
       ResetCheckBoxBtnStat();
    }else if(Sender == CheckBox7->false){
       ResetCheckBoxBtnStat();
    }else if(Sender == CheckBox8->false){
      ResetCheckBoxBtnStat();
    }
}

引言:和RadioButton不同的是一次可以寫入很多個，所以在CheckBoxClick裡面我將流程改為: 宣告位置->寫入->如果CheckBox->false->執行ResetCheckBoxBtnStat(); 不過好像在判斷CheckBox->false這裡語法錯誤了，想問一下怎樣改正語法。謝謝

 void __fastcall TForm1::CheckBoxClick(TObject *Sender)
{
    int col;  // 要處理的欄位數 (Column)
    int row;  // 要處理的行數 (Row)        if(Sender == CheckBox5){
        col = 39;
        row = 59;
    }else if(Sender == CheckBox6){
        col = 37;
        row = 60;
    }else if(Sender == CheckBox7){
        col = 42;
        row = 61;
    }else if(Sender == CheckBox8){
        col = 45;
        row = 62;
    }        //ResetCheckBoxBtnStat();        AnsiString temp = RichEdit2->Lines->Strings[row];  // 設 temp 為 RichEdit1 第 row 行的內容
    temp = temp.SubString(1, col-1)   "&true"  temp.SubString(col 5, temp.Length()-((col 5)-1));
    RichEdit2->Lines->Strings[row] = temp; // 將重新組合過的字串設回給 RichEdit 第 row 行
//增加的語法
    if(Sender == CheckBox5->false){
       ResetCheckBoxBtnStat();
    }else if(Sender == CheckBox6->false){
       ResetCheckBoxBtnStat();
    }else if(Sender == CheckBox7->false){
       ResetCheckBoxBtnStat();
    }else if(Sender == CheckBox8->false){
      ResetCheckBoxBtnStat();
    }
}

if (CheckBox5->Checked) { // 如果 CheckBox5 被圈選
    ....
} else {
    ....
}

if(CheckBox5->Checked) { 
    ....
} else {
    ....

void __fastcall TForm1::CheckBoxClick(TObject *Sender)
{
    int col;  // 要處理的欄位數 (Column)
    int row;  // 要處理的行數 (Row)        if(Sender == CheckBox5){
        col = 39;
        row = 59;
    }else if(Sender == CheckBox6){
        col = 37;
        row = 60;
    }else if(Sender == CheckBox7){
        col = 42;
        row = 61;
    }else if(Sender == CheckBox8){
        col = 45;
        row = 62;
    }        AnsiString temp = RichEdit2->Lines->Strings[row];  // 設 temp 為 RichEdit1 第 row 行的內容
    if (((TCheckBox *)Sender)->Checked) {  // CheckBox 為圈選狀態時
        temp = temp.SubString(1, col-1)   "&true"  temp.SubString(col 5, temp.Length()-((col 5)-1));
        RichEdit2->Lines->Strings[row] = temp; // 將重新組合過的字串設回給 RichEdit 第 row 行
    } else {  // CheckBox 為取消圈選狀態時
        if(temp.SubString(col, 5) == "&true"){ // 如果對應的位置是 &true 字樣，則予以清除掉
            temp = temp.SubString(1, col-1)   temp.SubString(col 5, temp.Length()-((col 5)-1));
            RichEdit2->Lines->Strings[row] = temp; // 將去除掉 &true 字樣的字串設回給 RichEdit 第 row 行
        }
    }
}