求字符串的长度

var
  s:string;
  lvAnsiStr:AnsiString;
begin
  lvAnsiStr := '中国';
  Writeln(Length(lvAnsiStr));

  lvAnsiStr := UTF8Encode('中国');
  Writeln(Length(lvAnsiStr));

  s := 'a';
  lvAnsiStr := UTF8Encode('中国') + s;
  Writeln(Length(lvAnsiStr));

  lvAnsiStr := UTF8Encode('中国') + 'a';
  Writeln(Length(lvAnsiStr));

 

 

image

posted @ 2015-12-19 12:31 D10.天地弦 阅读(...) 评论(...) 编辑 收藏