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旋转位图

Delphi 双击隐藏tabsheet

Delphi-adoquery查询、插入、删除、修改

Delphi10 一段汇编程序

Delphi 读写附加数据

Delphi获取 斐波那契数列　的函数

Delphi tdbgrideh导出excel

settimer函数用法

Delphi 10.3.3 启动cnpack ide 专家 cnwizards coreide260.bpl错误解决办法

Delphi 合并文本行的函数

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

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