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

* Commented some unneeded buggy code

Browse Source 
git-svn-id: trunk@6073 -
This commit is contained in:
joost 2007-01-19 15:02:31 +00:00
parent ea5a5ad02c
commit 85cf9db5e7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -648,14 +648,14 @@ var
begin
with cursor as TPQCursor do
begin
x := FieldBinding[FieldDef.FieldNo-1];
// Joost, 5 jan 2006: I disabled the following, since it's usefull for
// debugging, but it also slows things down. In principle things can only go
// wrong when FieldDefs is changed while the dataset is opened. A user just
// shoudn't do that. ;) (The same is done in IBConnection)
if PQfname(Res, x) <> FieldDef.Name then
DatabaseErrorFmt(SFieldNotFound,[FieldDef.Name],self);
x := FieldBinding[FieldDef.FieldNo-1];
//if PQfname(Res, x) <> FieldDef.Name then
// DatabaseErrorFmt(SFieldNotFound,[FieldDef.Name],self);
if pqgetisnull(res,CurTuple,x)=1 then
result := false