From 0d71b5ede0263a25954413fa3de97b011a42f52e Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 17 Feb 2021 21:09:45 +0000 Subject: [PATCH] * Merging revisions 48702 from trunk: ------------------------------------------------------------------------ r48702 | michael | 2021-02-17 22:07:57 +0100 (Wed, 17 Feb 2021) | 1 line * Cursor can be nil, patch from Mattias Gaertner ------------------------------------------------------------------------ git-svn-id: branches/fixes_3_2@48703 - --- packages/fcl-db/src/sqldb/sqldb.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp index af867e6aaf..b571d8c77e 100644 --- a/packages/fcl-db/src/sqldb/sqldb.pp +++ b/packages/fcl-db/src/sqldb/sqldb.pp @@ -3122,7 +3122,7 @@ begin UpdateServerIndexDefs; FStatement.Execute; - if not Cursor.FSelectable then + if (Cursor=nil) or (not Cursor.FSelectable) then DatabaseError(SErrNoSelectStatement,Self); // InternalInitFieldDef is only called after a prepare. i.e. not twice if