DelphiXE下String转PAnsiChar

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

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

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