直接用PCHAR()就可以了
var
   s:string;
   p:pchar;
....
   p:=pchar(s);

解决方案 »

  1.   

    对呀,直接用就行了PChar(String);
      

  2.   

    pchar(***),*** is the  string的name;
    messagebox中可以直接输入:
    messagebox(handle,'test','title',mb_ok);是可以的。
      

  3.   

    var
      s:string;
    begin
    ...
      s:='sadfsfasfsafd'; 
      messagebox(handle,pchar(s),'title',mb_ok);
    ...
      

  4.   

    pchar(s)
    又晚了,好不容易有个懂的.
      

  5.   

    用Strpcopy函数
    或给byte型数组赋值
      

  6.   

    可以这样
    p:pchar;
    s:string;
    s:='abcd';
    p:=@s[1]
      

  7.   

    //推荐: http://www.csdn.net/expert/topic/410/410056.shtm