Overriding Fields in Object..

**Delphi-Lover**

Hello,

Is it possible to override fields instead of Methods. What I like to do is:

A BaseObject with a field myQuery: TQuery;
In the object I use procedures/functions with the myQuery var to do like : add, insert, active and so.

When I make a new object inherited from BaseObject I like to make myQuery of type TADOQuery (overriding the myQuery) so that I can use the functions and procedures inherited from the BaseObject.

I think it is not possible, but is there a good Object Oriented way to do what I want?

Thanks,

Delphi Lover.

zusammenfalten · markieren

Delphi-Quellcode:

			TPortObject = Class(TObject)

 Private

  qryPort : TQuery;

 public

  procedure AllPort; 

end;

procedure TPortObject.AllPort;

Begin

 qryPort.SQL.Add('Select * from Port');

 qryPort.Active:=True;

End;

TADOPortObject = Class(TPortObject) //inherited

 Private

  qryPort : TADOQuery;

 public

  constructor Create;

end;

constructor TADOPortObject.Create;

Begin

 qryPort:=TADOQuery.Create;

 qryPort.....

 ....

End;

MainSource:

aPortObject:=TADOPortObject.Create;

aPortObject.AllPort;

...

Overriding Fields in Object..

Overriding Fields in Object..

Forumregeln