zoukankan      html  css  js  c++  java
  • [原创] Delphi Assigned函数的使用和介绍

    Assigned 函数在Delphi 的单元中并不能找到,网上有人评论说它并不是一个真正的函数,至今我也没有找到不能证明它为什么不是函数,但可以肯定的是,它确实可以当做函数来使用

    原型:function Assigned(var P ): Boolean;

    概念:Assigned 用来确定引用的指针或过程是否为空(nil),这个P必须是指针或者引用过程类型的变量,Assigned (P) 对应指针变量的测试 P<>nil,过程变量的 @P<>nil,如果P为nil,Assigned返回False,否则返回True。

    典型应用:

    if not Assigned(Form1) then 
    begin 
       Form1:= TForm1.Create(Application); 
       Form1.ShowModal; 
       Form1.Free; 
    end; 
    

    以上创建之后的窗体采用 Form1.Free 释放,实际上窗体还是存在的,并没有从内存中完全释放。

    两种方法纠正:

      1、在Form1窗体中 FormDestroy 销毁事件中 加入 Form1:=nil

      2、把Form1.Free 换成 FreeAndNil(Form1);  , 参考点击超链接

    创建日期:2019.12.27

    来源:https://www.cnblogs.com/guorongtao/p/12107128.html

  • 相关阅读:
    1033.采药1
    G——胜利大逃亡 (BFS)
    POJ 3278 Catch That Cow
    C
    11.17 dfs poj1979 Red and Black
    11.11反思
    kmp笔记
    dfs bfs
    1113
    python 类方法
  • 原文地址:https://www.cnblogs.com/guorongtao/p/12107128.html
Copyright © 2011-2022 走看看