copy('阿扁', 1, 1) 並不是"阿"字, 如何解決?

你輸入了兩個中文字，中文字是佔用兩個位元， 你即是輸入了四個位元的字串，你這句的變成 了要求字串中由第一個位置開始，抽取一個位 元，如果你要抽取你輸入的字串（阿扁）內的 「阿」字，你要改成 copy('阿扁', 1, 2)

插花一下, WideString 是以"字"為單位.    

procedure TForm1.Button1Click(Sender: TObject);
var ws:widestring;
begin
  ws := '阿扁';
  showmessage(copy(ws,1,1));
end;

引言: 插花一下, WideString 是以"字"為單位.

procedure TForm1.Button1Click(Sender: TObject);
var ws:widestring;
begin
  ws := '阿扁';
  showmessage(copy(ws,1,1));
end;

原來如此.又上了一課

你這種問題一定要先判斷首碼ASCII是不是大於128 如果是那就表示是中文字.... 那你就要抓兩位,如果不是那就OK只抓一位 所以"阿"的首碼大於128是中文.... 要抓兩位,當然這是你知道"阿"的第一碼是中文的開始 如果再你不確定的狀況下你就要跑回圈去判斷了,不然 你很可能會把字切一半OR抓了"阿"的後碼"扁"的前碼 出來可能會是另一個字OR亂碼 這是UNICODE和ASCII的差別啦剛也有人提了, WIN32平台是ASCII 所以一個中文字會兩碼 .NET平台是UNICODE所有的字都只有一碼 所以抓法會不同.... 以上是小弟所知....請指教

ejamesxu 您好! 除了判斷首碼是否大於128這個方法外,您還可以函式:ByteType() 如果返回值是mbSingleByte,則是英文 如果返回值是mbLeadByte, 則是中文第一碼 如果返回值是mbTrailByte, 則是中文第二碼