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

fcl-db: oracle: cosmetic

Browse Source 
git-svn-id: trunk@29164 -
This commit is contained in:
lacak 2014-11-27 13:52:25 +00:00
parent eaadd51b42
commit 628d6243be
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -332,13 +332,14 @@ end;
procedure TOracleConnection.HandleError; procedure TOracleConnection.HandleError;
var errcode : sb4; var
errcode : sb4;
buf : array[0..1023] of char; buf : array[0..1023] of char;
E : EOraDatabaseError;
begin begin
OCIErrorGet(FOciError,1,nil,errcode,@buf[0],1024,OCI_HTYPE_ERROR); OCIErrorGet(FOciError,1,nil,errcode,@buf[0],1024,OCI_HTYPE_ERROR);
raise EOraDatabaseError.CreateFmt('%s', [pchar(buf)], Self, errcode, '') raise EOraDatabaseError.CreateFmt(pchar(buf), [], Self, errcode, '')
end; end;
procedure TOracleConnection.GetParameters(cursor: TSQLCursor; ATransaction : TSQLTransaction; AParams: TParams); procedure TOracleConnection.GetParameters(cursor: TSQLCursor; ATransaction : TSQLTransaction; AParams: TParams);