如何在delphi中自定义一个类,该类不继承任何类

Question

 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;
  Obj.Add;
  //Error Free
  //Obj.Free;
  Obj.Destroy;
end;

Answer 1

最好不要这么做！保留这种做法，只是Delphi为了保持兼容，使用这种方法，你失去了几乎是全部的面对对象编程的好处！

Answer 2

嘻嘻，以上只是提供一个不继承TObject类的例子,剩下的由楼上的代说

Answer 3

TForm1 = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    StoredProc1: TStoredProc;
    Database1: TDatabase;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
你说这个是不继承的类吧

Answer 4

不可能，delphi规定任何定义的类都从Tobject继承
type a=class  与  type a=class(Tobject) 一样

Answer 5

不，如果你用object来定义就不是从TObject继承。
用class定义就都是从TObject继承了。