Delphi中获取不同编码下一个字符一段文字占用多少字节的方法

procedure TForm1.Button3Click(Sender: TObject);
var
  nStrA: AnsiString;
  nStrU: UnicodeString;
  nStrUTF8: UTF8String;
  nBytes: TBytes;
begin
  nStrA := '你好123';
  ShowMessage(IntToStr(TEncoding.ANSI.GetByteCount(Memo1.Text))); {7}
  nStrU := '你好123';
  ShowMessage(IntToStr(TEncoding.Unicode.GetByteCount(Memo1.Text))); {10}
  nStrUTF8 := '你好123';
  ShowMessage(IntToStr(TEncoding.UTF8.GetByteCount(Memo1.Text))); {9}
end;

 

经实际测试发现，在XE2中 Length取的是字符数，等同于Oracle数据库中的length，结果完全一样。在Dephi2007中同样的一段文字，length结果为12492，XE2中是6502，在Notepad++中是18482，说明不同的编码环境，占用的字节是完全不同的