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