如何取最后一个字

Question

如何取最后一个字前面可能存在半个字符

Answer 1

英文1个字节，中文2个字节
Copy(...)

Answer 2

var
  Str: string; 
  Value : string;
begin
  Str:= '中华人民共和国';
  if ord(Str[1]) > 126 then
    Value := Copy(Str, 1, 2)
  else
    Value := Copy(Str, 1, 1);
end;

Answer 3

uses strutils
.....
RightStr(x,2);

Answer 4

借花悬佛
var
  s: WideString;
begin
  s := x;
  s := RightStr(s,2);
end;

Answer 5

先判断最后一个字符是汉字还是字符.
如果是汉字.就用 
var
  s: WideString;
begin
  s := x;
  s := RightStr(s,2);
end;
如果是字符就改
s := RightStr(s,1);
就OK!~~!~~!!