构造函数与析构函数的使用

MyClass   =   object
    private
        AA:   Integer;
    public
        procedure   Add;
        constructor   Create;  //其它地方不用看，就看这两个
        destructor   Destroy;
        property   A:   Integer   read   AA   write   AA;
    end;


procedure   MyClass.Add;
begin
    Inc(AA);
end;

constructor   MyClass.Create;
begin
    AA   :=   1;
end;

destructor   MyClass.Destroy;
begin
    //destroy   you   obj
end;

procedure   TForm1.FormCreate(Sender:   TObject);
var
    Obj:   MyClass;
begin
    Obj.Create;  //上面的代码准备好了以后，这样 AA 就等于 1 啦。
    Obj.Add;
    //Error   Free
    //Obj.Free;
    Obj.Destroy;
end;