如何得到一个字符串中的字符数？

Question

如：s:='中a';
    字节数是3，字符数是2，哪个函数可以得到2？

Answer 1

var 
  s : widestring;

Answer 2

var
  s : widestring;
begin
  s := '中a過';
  ShowMessage(IntToStr(Length(s)));

Answer 3

var 
  s : widestring; //Widestring是宽字符,无论一个汉字还是英文数字,长度都是1
begin 
  s := '中a過'; 
  ShowMessage(IntToStr(Length(s)));

Answer 4

s: String;s := '中a'; ...function getCharCount(s: String): Integer;
var
  ss: WideString;
begin
  ss := s;
  result := length(ss);
end;大致就是这样。好久不用delphi，语法有点生疏了。