function ByteType(const S: string; Index: Integer): TMbcsByteType;
//
// 判断一个字符串中,某个 Char 是单个字母,还是双字节的前一位或后一位。
// mbSingleByte 单字母
// mbLeadByte 双字节第一位
// mbTrailByte 双字节第二位
//
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
s : string;
begin
s := '请问1<2吗';
for i := 1 to length(s) do
begin
if ByteType(s,i) = mbSingleByte then
ShowMessage(s + ' 的第' + inttostr(i) + '个字符是西文')
else
ShowMessage(s + ' 的第' + inttostr(i) + '个字符是中文');
end;
end;
本文来源于 冰山上的播客 http://xinsync.xju.edu.cn , 原文地址:http://xinsync.xju.edu.cn/index.php/archives/4830
Delphi判断字符是否中文
最新推荐文章于 2024-05-27 10:46:11 发布