求字符串的長度

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