PChar to String?????help me!

Question

//方法如下!
var a:pchar;
    b:string;
b:=string(a);

Answer 1

你的pchar变量分配空间了吗？另外把代码贴上来吧

Answer 2

{转换PChar为String}
function PCharToStr(CStr: PChar): string;
begin
   if CStr = nil then
      Result := ''
   else
   begin
      {$IFDEF WIN32}
      SetLength(Result, StrLen(CStr));
      Move(CStr^, Result[1], Length(Result));
      {$ELSE}
      Result := StrPas(CStr);
      {$ENDIF}
   end;
end;
{转换PChar为String}