delphi得到字符串中第一个汉字的位置


本文整理自网络,侵删。

  function PositionFirstGB(str: string): Integer;
var
i: integer;
begin
Result := 0;

for i := 1 to Length(str) -1 do
begin
//第一个汉字的第一个字节判断它的内码是否大于128大于则是汉字,小于则是英文
if ord(str[i]) > $7F then
begin
Result := i;
Break;
end;
end;
end;

相关阅读 >>

Delphi 给gmail发送邮件

Delphi 如何读取文件头 判断文件类型

Delphi 跳出循环的几种方法

Delphi 时间耗时统计

Delphi 查找指定目录,指定扩展名的所有文件名

Delphi动态建立panel无法更改颜色?

Delphi 删除动态数组的指定元素

Delphi pascal实现二分查找算法

Delphi comparestr 这个函数可以模糊匹配,且不区分大小写

Delphi 列举系统服务,停止启动所选服务

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...