procedure TForm1.Button1Click(Sender: TObject);
var
aa:pchar;
bb:String;
begin
aa:='a';
bb:=String(aa);
ShowMessage(bb);
end;
var
aa:pchar;
bb:String;
begin
aa:='a';
bb:=String(aa);
ShowMessage(bb);
end;
现在的pchar到string的转换最好直接用typecast
即
a:=string(p);
strpas可不用