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》频道 >>

转载请注明出处：木庄网络博客 » delphi得到字符串中第一个汉字的位置