如下转换var pstr : PChar;
str : String;
begin
pstr := 'aaaaaaaaa';
str := 'bbbbbbbbbbbbbb'; str := pstr; //方法一
str := StrPas(pstr); //方法二 pstr := PChar(str); //string到PChar,用Pchar(string)来强制转换end;
str : String;
begin
pstr := 'aaaaaaaaa';
str := 'bbbbbbbbbbbbbb'; str := pstr; //方法一
str := StrPas(pstr); //方法二 pstr := PChar(str); //string到PChar,用Pchar(string)来强制转换end;
var
str:string;
....
pchar(str)
....
Application.MessageBox('hello', 'ok', MB_OK + MB_ICONEXCLAMATION);
var str:string;
k:pchar;
begin
str:='sjfsjfdsj'; k:=pchar(str);//其实是取得了str的地址指针
end; pcharTostr 好象不用转换吧。
应该是这样吧
k:=pchar(str);没用 出来是空的,怪事
uses SysUtils,dialogs;