2018-11-26 char的宽字节问题

delphixe

procedure TForm3.Button1Click(Sender: TObject);

var  a:string;

 begin

  a:='中国1';

  showmessage(inttostr(length(a)*sizeof(char)));// 显示6，在XE里的sizeof(char)=2,在delphi7里的sizeof(char)=1

end;

--------------------------------

procedure TForm3.Button1Click(Sender: TObject);

var  a:string;

begin

  a:='中国1';

  showmessage(inttostr(length(a)));   //显示3 ，这是默认显示方式，XE是宽字节，用2个字节存储了 ‘中 ’这个字符，一共使用了6个字节，存储  中国1

end;

------------------------------------------

以上两段放入delphi7都显示为5   。这是因为XE使用了 宽字节，用2个字节存储一个字符，  D7是用1个字节存储一个字符（不好好支持中文）。