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

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;