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));
经过测试，成功了！