تبدیل String به PAnsiChar

[hojjatcroos]

تبدیل String به PAnsiChar فقط همین

[مهران موسوی]

var

VPChar:pchar;

str:string;

begin



str:='Covert To Pchar';

VPChar:=pchar(str);



ShowMessage(VPChar);

[Felony]

 

X:=PChar(String);

[rainstorm]

تبدیل String به PAnsiChar فقط همین

این پست خیلی قدیمی است قطعا شما به جواب رسیدید برای کسانی که این مشکل رو دارن جواب دادم

PAnsiChar یک اشاره گر به AnsiChar هست
به نمونه زیر دقت کنید گره کارتونو باز میکنه

uses

ShellApi



....





procedure TForm1.Button1Click(Sender: TObject);

var

  VPAnsiChar:PAnsiChar;

  VStr:string;

begin

  VStr:= 'cmd /c "ping ' + Edit1.text + '"';

  VPAnsiChar := PAnsiChar(AnsiString(VStr));

  WinExec(VPAnsiChar, SW_SHOW);

end;