تبدیل String به PAnsiChar

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

var

VPChar:pchar;

str:string;

begin



str:='Covert To Pchar';

VPChar:=pchar(str);



ShowMessage(VPChar);

 

X:=PChar(String);

نقل قول:

---

نوشته شده توسط hojjatcroos

تبدیل 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;