很多资料只提到升迁到xe，而我们调用底版本c++开发的程序，是只能按Ansi操作的，所以需要反向转换。 

var s:PansiChar;
s:=PansiChar(AnsiString(‘我我我我我‘));

这样就能转换过来了，如果没有AnsiString转换一下，那就只能取到第一个字符

参考：http://www.e8e.net/post/2b9e8b_b87914

DelphiXE下String转PAnsiChar（反向转换）