delphi字符串操作

Question

如何删除字符串（中文字符英文混合）末尾一字符

Answer 1

末尾字符可能为英文(占1个长度),也可能是中文(占2个长度)
实现步骤:
1 判断最后字符是中文或者英文
2 如果是中文,删除最后2个长度的字符
3 如果是英文,删除最后一个长度的字符
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
begin
s:='中国a' ;
i:=length(s)-1;
if ByteType(s,i) = mbLeadByte then // 最后一个字符为汉字
s:=copy(s,1,length(s)-2)
else //最后一个字符为英文
s:=copy(s,1,length(s)-1);

showmessage(s);
end;

上面函数中,s被删除了末尾一字符