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

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;