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

* Fix some compiler warnings

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-02-04 13:04:39 +01:00
parent 1d9a17377d
commit eaf665e8c4
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/postgres/pqconnection.pp
View File

@ -56,6 +56,9 @@ type
Procedure RegisterCursor(Cursor : TPQCursor);
Procedure UnRegisterCursor(Cursor : TPQCursor);
procedure UnprepareStatement(Cursor: TPQCursor; Force: Boolean);
Public
Constructor Create(aConnection : TPQConnection;aDBName :string);
Destructor Destroy; override;
Procedure Connect;
Procedure Disconnect;
Procedure StartTransaction;
@ -66,8 +69,6 @@ type
Function DescribePrepared(StmtName : String): PPGresult;
Function Exec(aSQL : String; aClearResult : Boolean; aError : String = '') : PPGresult;
function ExecPrepared(stmtName: AnsiString; nParams:longint; paramValues:PPchar; paramLengths:Plongint;paramFormats:Plongint; aClearResult : Boolean) : PPGresult;
Constructor Create(aConnection : TPQConnection;aDBName :string);
Destructor Destroy; override;
procedure CheckResultError(var res: PPGresult; Actions : TCheckResultActions; const ErrMsg: string);
Property Connection : TPQConnection Read FCOnnection;
Property NativeConn : PPGConn Read FNativeConn;
@ -844,7 +845,6 @@ function TPGHandle.ExecPrepared(stmtName: AnsiString; nParams: longint;
aClearResult: Boolean): PPGresult;
var
s : string;
acts : TCheckResultActions;
begin