Heya.... I'm trying to make a subclass for TADOConnection to add some
automated functionality I want and have come accross something confusing:
I have defined:
TRegADOConnection = class(TADOConnection)
private
procedure SetConnectionString(const Value: WideString); override;
function GetConnectionString: WideString; override;
but this comes back with errors saying Set/GetConnectionString not found
in baseclass... but, over in ADODB.pas we have:
function TADOConnection.GetConnectionString: WideString;
begin
Result := ConnectionObject.ConnectionString;
end;
procedure TADOConnection.SetConnectionString(const Value: WideString);
begin
if ConnectionString <> Value then
begin
CheckInactive;
ConnectionObject.ConnectionString := Value;
end;
end;
So.... they're not in the class are they???
--
Mark Derricutt "People in prayer for me, everyone there for me,
ICQ: 1934853 sometimes I feel I should face this alone, my
Wrk: 377-9941 soul exposed... it calm's me to know that I
Fax: 377-9947 won't!" = Dream Theater - Scarred
DDI: 375-3754
Now Playing: Loudness - 11 - Junk His Head
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
