delphi Char* 转换到 字符串 字符串 转换到 Char*

 {

Char* 转换到 字符串

}

Function PtoS(a:pchar):ansistring;

Begin

result:=strPas(a)

End;

{

字符串 转换到 Char*

}

Function StoP(a:ansistring):Pchar;

Begin

result:=pchar(@a[1]);

End;