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

* fixed some warnings

Browse Source 
git-svn-id: trunk@6506 -
This commit is contained in:
joost 2007-02-15 21:43:24 +00:00
parent d33cd8d4c5
commit 581cd410fe
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/sqldb/postgres/pqconnection.pp
View File

@ -579,7 +579,6 @@ procedure TPQConnection.AddFieldDefs(cursor: TSQLCursor; FieldDefs : TfieldDefs)
var var
i : integer; i : integer;
size : integer; size : integer;
st : string;
fieldtype : tfieldtype; fieldtype : tfieldtype;
nFields : integer; nFields : integer;
@ -617,8 +616,6 @@ end;
function TPQConnection.Fetch(cursor : TSQLCursor) : boolean; function TPQConnection.Fetch(cursor : TSQLCursor) : boolean;
var st : string;
begin begin
with cursor as TPQCursor do with cursor as TPQCursor do
begin begin
@ -644,7 +641,6 @@ var
dbl : pdouble; dbl : pdouble;
cur : currency; cur : currency;
NumericRecord : ^TNumericRecord; NumericRecord : ^TNumericRecord;
s : string;
begin begin
Createblob := False; Createblob := False;