求字符串的长度

var
  s:string;
  lvAnsiStr:AnsiString;
begin
  lvAnsiStr := '中国';