在delphi中，如何判断输入的数据是中文还是西文？谢谢！！！< >< >

此類問題已有相關討論 請參考此篇 http://delphi.ktop.com.tw/topic.php?topic_id=23509    建議可多利用搜尋… 發表人 - ddy 於 2003/04/24 15:58:33

參考看看 procedure TForm1.Button5Click(Sender: TObject); var sTest: string; begin sTest := '中文字'; // 沒有應用組件的請用這個: Windows.IsDBCSLeadByte(byte(sTest[1])); if IsLeadByte(@sTest[1]) then ShowMessage('Yes 1'); if IsLeadByte(@sTest[2]) then ShowMessage('Yes 2 ???'); end;

var s: string; begin s := '中a25文'; if IsDBCSLeadByte(Byte(s[1])) then Edit1.Text:= (s[2]); // ...; // s 這個字串的第一二個 Byte 是中文字 end;