求字符串的长度

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.天地弦  阅读(846)  评论(0编辑  收藏