计算中英文混合字符串的长度

计算中英文混合字符串的长度

 

function ByteLength(s:string):integer;
var
  i,temp:integer;
begin
  temp:=0;
  if s='' then
  begin
    Result:=0;
  end;

  for i:=0  to Length(s)-1  do
  begin
    if Ord(s[i])>$80 then
      Inc(temp)
    else
      temp:=temp+2;
  end;
  Result:=temp div 2;
end;