function ByteType(const S: string; Index: Integer): TMbcsByteType;
告诉你一个非常有用的函数。
bytetype 它可以判断一个字符串中,某个 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;
判断即有中文,又有英文的字符串。
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
ExtractFileName、ExtractFileExt、ExtractFileDir、ExtractFilePath
ZHOUJIAOSHOU
2020-06-16 05:10:33
Delphi中IntraWeb的学习初体验
siasbob
2020-06-16 01:56:52
CreateProcess创建带参数的进程到获取进程参数 失败
一片荷叶
2020-06-13 19:09:21
creatprocess 传入参数例子
procedure TMainForm.test();var UpdateFilePath:string; si:STARTUPINFO; p
一片荷叶
2020-06-13 19:09:21
表格单元格名称转为行列
一片荷叶
2020-02-23 15:01:45
程序启动时不显示主窗体
ZHOUJIAOSHOU
2020-02-21 14:43:36
paramstr(0)
ZHOUJIAOSHOU
2020-02-21 14:43:36
ExtractFileDir 与 ExtractFilePath 的区别
ZHOUJIAOSHOU
2020-02-21 14:43:36
TApplication类详解
ZHOUJIAOSHOU
2020-02-21 14:43:36
IdFTP无法设置TransferType属性
ZHOUJIAOSHOU
2020-02-21 14:43:36
String,PChar,PByte,Array of Char,Array of Byte 转换
裸奔的蜗牛
2018-09-04 17:05:10
delphi的取整函数round、trunc、ceil和floor
裸奔的蜗牛
2018-09-04 17:05:10
Delphi资源
CSDNloading
2018-09-04 06:48:23
Rundll常见命令
而今伊始我命由我
2018-09-01 11:44:30