我是使用下列方式偵測空字串，但是我不知道要如何偵測字串或數字。 我想要的功能是只要輸入數字以外的文字或符號就"return"，請問各位大大要用什麼方式才可以做?  

InputQuery("School Point","Please Input",aStr)) if (aStr=="") { return; }

參考以下 http://delphi.ktop.com.tw/topic.php?topic_id=48070 http://delphi.ktop.com.tw/topic.php?topic_id=66954 發表人 - supman 於 2005/08/02 15:57:50

北方佬 您好：    參考一下以下作法：

AnsiString chkStr="0123456789";  // 要檢查的數字字元 (可視需要自行增添，例如小數點)
bool isNum = true;  // 先假設字串內容是數字
for (int i=1; i<=aStr.Length(); i  ) {
    if(chkStr.Pos(aStr.SubString(i, 1)) == 0){ // 如果不是 chkStr 之中的任一字元
        isNum = false; // 字串內容含有非數字的字元
        break;
    }
}    if (!isNum) { // 若不是數字資料
    return;
}

如果您的程式中有多處需要用到相同比對方式，也可以考慮將上述動作寫成自定函式，以便於使用，例如：

bool __fastcall isNum(AnsiString Str)
{
    AnsiString chkStr="0123456789.";
    bool isNumFlag = true;
    for(int i=1; i<=Str.Length(); i  ){
        if(chkStr.Pos(Str.SubString(i,1)) == 0){
            isNumFlag = false;
            break;
        }
    }        return isNumFlag;
}

然後在您的程式中寫成：

AnsiString aStr;
InputQuery("School Point","Please Input",aStr);
if (aStr=="") {
    return;
}
if (!isNum(aStr)) {
    return;
}

7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/08/03 03:40:45

謝謝大大指教，回家來去試試，感恩。