paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 23:09:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: oracle: let EOraDatabaseError descend from ESQLDatabaseError instead of EDatabaseError

Browse Source 
git-svn-id: trunk@28044 -
This commit is contained in:
lacak 2014-06-24 09:52:13 +00:00
parent 045429327b
commit dac058e462
1 changed files with 3 additions and 3 deletions

6
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -19,9 +19,9 @@ const
DefaultTimeOut = 60;
type
EOraDatabaseError = class(EDatabaseError)
EOraDatabaseError = class(ESQLDatabaseError)
public
ORAErrorCode : Longint;
property ORAErrorCode: integer read ErrorCode; deprecated 'Please use ErrorCode instead of ORAErrorCode'; // June 2014
end;
TOracleTrans = Class(TSQLHandle)
@ -331,7 +331,7 @@ begin
else
E := EOraDatabaseError.Create(pchar(buf));
E.ORAErrorCode := errcode;
E.ErrorCode := errcode;
Raise E;
end;