Delphi XE 与 Delphi 7 转换

str:string;

Pchar(str)等于PAnsiChar(AnsiString(str));