Delphi XE 中的 PAnsiCahr,该怎么处理

Delphi XE 中的 PAnsiCahr

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  mystr: string;begin   if OpenDialog1.execute then     begin       mystr := OpenDialog1.FileName;       WinExec(PChar(mystr),3);     end;end;

在D7下面，用PChar转换后是PAnsiChar， 到了XE，转换后是PWideChar，

请问，在XE下面，应该如何转换才可以正确，谢谢

[解决办法]
mystr: ansiString;

不得了
[解决办法]
var
mystr: string;
begin
if OpenDialog1.execute then
begin
mystr := OpenDialog1.FileName;
WinExec(PAnsiChar(AnsiString(mystr)), 3);
end;
end;

查看更多 下一篇