2018-11-26 char的宽字节问题
2018-11-26 本文已影响0人
netppp
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个字节存储一个字符（不好好支持中文）。
