Override Commit procedure

[Zugg]

Hello,

I'm using DOA 4.1.3.1 and I have make a personnalized OracleSession component : TMyOracleSession wich herited from TOracleSession ( TMyOracleSession = class(TOracleSession) )

I want to prevent commit in some situations.
I have declare a Commit procedure in TMyOracleSession (in public section) :

procedure TMyOracleSession.Commit;
begin
  if not ForbidCommit then
    inherited;
end;

But when I use this call, my function isn't called :

lQry.Session.Commit; // with lQry an TOracleQuery object.

How can I force to call my Commit procedure without modify the call ?

thanks for your response.

--
Zugg

 

[Marco Kalter]

The Commit procedure in not virtual, so it cannot be overridden.

 

[Zugg]

Yes I know, but is it possible you could make a specific OracleSession version with the Commit procedure marked as virtual for my DOA version ?

 

[Marco Kalter]

I have added this to the list of enhancement requests.