paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 00:38:30 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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