在Delphi中一个对象名只是一个指向该对象的指针,可以有多个指针指向同一个对象地址。
范例中在Createlabel中create二个label,并使label1依次指向它们.退出过程后,label1自动释放,但生成的2个label控件并没有释放(因为它们由create创建).由于没有指向他们的指针,也就无法被调用和释放.这2个label直到程序结束时才被Application释放.
解决方法建立两个全局指针l1,l2分别指向他们,这样就可以在以后的过程中调用或释放他们.
Create应总是与Free相互对应,在对象不在使用之后释放其内存,以免造成内存泄露.