判断指针状态 Demo

最新推荐文章于 2022-02-24 14:40:01 发布

seagull327

最新推荐文章于 2022-02-24 14:40:01 发布

阅读量473

点赞数

分类专栏：指针函数

本文链接：https://blog.csdn.net/haiou327/article/details/6667592

版权

指针函数专栏收录该内容

23 篇文章 0 订阅

订阅专栏

var
   p: ^Integer;
procedure TForm1.btn1Click(Sender: TObject);
begin
  if not assigned(p) then
  begin
    New(P);
    btn1.Caption := '已经New';
  end
  else
    btn1.Caption := '不用NEW了';
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  if assigned(p) then
    ShowMessage('已经New')
  else
    ShowMessage('已经释放');
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  p:=nil;
  Dispose(P);
  btn1.Caption:='已释放';
end;