[fpc-pascal] is this a bug?

duilio foschi octopushole at gmail.com
Wed Jun 2 13:00:12 CEST 2021

I am using  FPC v. 3.2.0 on both linux and windows.

I use Firebird as a database (not sure that this is important).

Say you write


// create the components...
// open a database...
// prepare a first query...
   ATran.SQLConnection := AConnection;
   AQuery.SQLConnection := AConnection;
   AQuery.Transaction := ATran;
   ' select 1                             '+
   ' from tb_dpt                          '+
   ' where cod_dpt=:deviceId               ';
// assign parameters...
// this query returns 1
// ...
// other code here...
// ...
// start a new query

   ' select id_log                        '+
   ' from InsertIntoA_LOG(                '+
   ' :ACTION                       ,        '+
   ' :USERNAME                   ,        '+
   ' :MAC                        ,        '+
   ' :ATEXT)                               ';
// prepare the query...
// assign parameters...
// a GUID is expected here as a result.

Instead, the query returns 1!     GULP!

The query uses the old SQL! No error is raised when I assign the new

In order to get the expected results, I have to explicitly close the query
before re-assigning  AQuery.SQL.Text .

I am sure that this did not happen in Delphi.

The compiler should forbid the query to be reassigned when open, or it
should authomatically close it then reassign it

Or at least an error should be raised when I try to assign say parameter
:ACTION is the 2nd query...

Not sure about the right path to take, but this behaviour brought me alread
a lot of hair-pulling :)

Peppe Polpo
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20210602/94ff9a7c/attachment.htm>

More information about the fpc-pascal mailing list