P
pcgod
Unregistered / Unconfirmed
GUEST, unregistred user!
您好， 请教空间释放
New() 后的指针为何 DisPose 出错 ？
代码：
procedure TForm1.Button1Click(Sender: TObject);
type
arr = array[0..3] of Integer ;
p = ^arr ;
var
myp : p ;
myarr : Arr ;
mystr,s : String ;
i : Integer ;
begin
for i := 0 to 3 do
myarr := I*10 ;
New(Myp) ;
Myp := @myarr ;
for i := 0 to 3 do
begin
s := s + IntToStr(Myp^) ;
end;
ShowMessage(s) ;
// DisPose(Myp) ; //空间这样释放出错
Myp := Nil ;
end;
谢谢
New() 后的指针为何 DisPose 出错 ？
代码：
procedure TForm1.Button1Click(Sender: TObject);
type
arr = array[0..3] of Integer ;
p = ^arr ;
var
myp : p ;
myarr : Arr ;
mystr,s : String ;
i : Integer ;
begin
for i := 0 to 3 do
myarr := I*10 ;
New(Myp) ;
Myp := @myarr ;
for i := 0 to 3 do
begin
s := s + IntToStr(Myp^) ;
end;
ShowMessage(s) ;
// DisPose(Myp) ; //空间这样释放出错
Myp := Nil ;
end;
谢谢
