تبدیل String به PAnsiChar فقط همین
تبدیل String به PAnsiChar فقط همین
var
VPChar:pchar;
str:string;
begin
str:='Covert To Pchar';
VPChar:=pchar(str);
ShowMessage(VPChar);
X:=PChar(String);
این پست خیلی قدیمی است قطعا شما به جواب رسیدید برای کسانی که این مشکل رو دارن جواب دادم
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;