Delphi 2010 的Char

今天用delphi 2010，做一个简单的内存映射的程序，在delphi以前版本上跑的好好的程序，在2010上，居然出现了不同的效果，发送端发送的字符串，接收端只收到一半，大概程序如下：

发送端：

var

    str : String;

begin

  CopyMemory(@(PShare^.Data),str,Length(str));  //把数据拷贝到共享内存

end;

接收端：

  mmo1.Text := PShare^.Data;

 

查找帮助，Length的帮助中有那么一句话：For Unicode (WideString) strings, Length returns the number of bytes divided by two.

莫非是Unicode在捣鬼？上网查查，发现delphi2010里面大范围的使用了Unicode格式，pChar也从以前Ansi格式的1byte，变成2byte，在Lengh的时候就除以2，那么我这个str里面不管有什么当然就会被腰斩了。

 

怎么解决呢？

 

万一老师说，可以用ByteLength函数，但是也有人说，ByteLength函数只能对Unicode字符串求字节长度，如果要对Ansi字符串进行计算，那么结果会是正确值的两倍，虽然在这个程序中，ByteLength函数足够满足我的需求了，但是为了养成良好的习惯，我采用了另外一种方法，就是Length(str)*SizeOf(Char)，这样不管是求AnsiChar还是Unicode Char的字符长度，都可以适用了。

 

发送端程序修改之后：

CopyMemory(@(PShare^.Data),str,Length(str)*SizeOf(Char));

 

经过测试，成功了！