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

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;