萧淑慎的第一个老公:判断中英文的函数
来源:百度文库 编辑:中财网 时间:2024/03/29 20:01:57
判断中英文的函数
分类: Delphi 2008-10-03 18:20 177人阅读 评论(0) 收藏 举报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;
判断函数的奇偶性
求javascript的判断函数
关于函数奇偶性的判断
如何判断函数的寄偶性
如何判断函数的奇偶性?
如何准确判断函数的图像
ASP判断是数字的函数
函数判断题
升函数如何判断
一道函数判断题
判断函数单调性
判断函数奇偶性
一道函数判断题
判断下列函数奇偶性
asp 判断字段是否为空的函数是什么???
怎么 快速 判断函数的奇 偶 性
vb编写函数判断一个整数的奇偶性
asp 判断是否为email函数的问题
请问VB中有没有直接判断素数的函数?
判断一个图形是不是函数图象的依据是什么?
判断一个图形是不是函数图像的依据是什么
数学函数判断值域的判别式法怎样使用?
这题怎么入手?(判断函数的奇偶性)
判断:指针变量只可以是函数的形参,不可以为函数的实参