View Full Version : تبدیل String به PAnsiChar
hojjatcroos
شنبه 26 بهمن 1387, 19:54 عصر
تبدیل String به PAnsiChar فقط همین
مهران موسوی
شنبه 26 بهمن 1387, 20:25 عصر
var
VPChar:pchar;
str:string;
begin
str:='Covert To Pchar';
VPChar:=pchar(str);
ShowMessage(VPChar);
Felony
شنبه 26 بهمن 1387, 20:29 عصر
X:=PChar(String);
rainstorm
پنج شنبه 12 دی 1398, 22:29 عصر
تبدیل 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;
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.