计算中英文混合字符串的长度
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;