Delphi中如何準確截取漢字

    在Delphi中，用Length來取字符長度時，如果有漢字，那它會將漢字當成一個字符來計算，而Copy把漢字又當成兩個來處理，關鍵的是Copy一個字符後，我如何知道是否取的是漢字呢？是否把一個漢字取完整了呢？

    判斷字符串的長度我們可以不用Length，改用StrLen(PChar(S1))來實現，但Copy呢？

    其實，用ByteType對取出來的字符進行判斷，我們可以得知這個字符是一個單字符還是漢字的一部分！

    mbLeadByte: 漢字的第一個字節
    mbTrailByte: 漢字的第二個字節
    mbSingleByte: 單個的字符，不是中文字符。

    如果Copy出來的是漢字的第一個字節，就再多Copy一個，湊成完整的漢字。