求字符串的长度

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));