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.

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;
...