运行时 报错a invalide pointer operation(0分)

运行时 报错a invalide pointer operation

var
dataptr0char;
sign:string;
begin
sign:='sdf';
dataptr0:=StrAlloc (40);
dataptr0:=Pchar(sign);
strdispose(dataptr0); ???报错：a invalide pointer operation
end;

你可以在strdispose(dataptr0);前加一句dataptr0:= nil;
因为变量dataptr0与sign所处的内存空间不一样，
变量sign在函数退出时才释放，是由操作系统管理，在程序中不能对它的空间进行释放
在你原来的程序中，释放dataptr0时等于释放sign，所以会出错。

接受答案了.