請問各位大大, 1.如何判斷Memo是否有中文字的出現呢? 2.若要防止輸入中文,應該如何處理? 3.可以將Memo中的內容以unicode來寫file存起來? 望各位大大指導提示,或有程式可參考.

1.    中文字碼，是由二個 byte 組成的 第一個 byte 的範圍是 A1-FE 你只要掃過整個字串 發現有 >= A1 的，就知道裡面有中文了    2. 

int isWideChar = 0;
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
    int ChkKey;        if(isWideChar) {
        isWideChar = 0;
        Key = 0;
    }        ChkKey = Key & 0xFF;
    if(ChkKey > 128) {
        isWideChar = 1;
        Key = 0;
    }
}

因為中文字的輸入，會連續輸入二個 byte 所以，當發現有一個 >= A1 不能只是吃掉這個 byte 而已 還要設個旗標把下一個也吃掉 程式上使用 > 128 是偷懶的寫法，要改成 > 0xA0 也可以 3. TMemo 沒辦法存成 Unicode 要使用 TTntMemo 才行 下載處 http://www.tntware.com/delphicontrols/unicode/