Hello.

I did try last fpc trunk and get that error message when compiling a program (mseide):

---> Error: Operator is not overloaded: "Class Of TBlobField" and "Boolean"

This comes from that line:

---> if fld1 is tblobfield then // here error.

Do you know what is the new equivalent for:
"if aclass is tblobfield" // boolean no more permitted

?

Thanks.

Fre;D

PS: I have a big stock of Aspirina.

-----
Many thanks ;-)

This is a bug, it should be permitted.

Michael.

This is a bug, it should be permitted.

Huh, from msegui or from fpc?

Fre;D

-----
Many thanks ;-)

Hello Michael.

The error comes after commit 4266 of 06-03-2020:

git-svn-id:

Fre;D

-----
Many thanks ;-)

Can point out a link to the whole source code containing this line?

Can point out a link to the whole source code containing this line?

More than welcome!

https://github.com/mse-org/mseide-msegui/blob/master/lib/common/db/msesqlquery.pas

At line 1719:

 if fld1 is tblobfield and (self.fblobintf  nil) then begin

Fre;D

-----
Many thanks ;-)

You wrote before the code is:
if fld1 is tblobfield then
?

https://wiki.freepascal.org/User_Changes_Trunk#Precedence_of_the_IS_operator_changed

You wrote before the code is: if fld1 is tblobfield then ?

Yes, it was to isolate the problem.

The original line that generates error is:

---> if fld1 is tblobfield and (self.fblobintf  nil) then begin

As work-around, removing "fld1 is tblobfield" makes trunk happy:

---> if self.fblobintf  nil then begin

To resume, the problem comes from "if fld1 is tblobfield".

-----
Many thanks ;-)

PM fredvs wrote

To resume, the problem comes from "if fld1 is tblobfield".

No, you miss the point:

if fld1 is tblobfield and (self.fblobintf nil) then begin

This will not compile anymore since the operator precedence of IS has been altered (to conform to docs and Delphi)
So it is now parsed as:

  if fld1 is (tblobfield and (self.fblobintf  nil)) then begin

Use: if (fld1 is tblobfield) and (self.fblobintf  nil) then begin

Bart

@Bart.

I just did try what you proposed (I promise without to read you before) and come here to announce that if solves the thing.

--> if (fld1 is tblobfield) and (self.fblobintf  nil) then begin

makes fpc trunk happy!

Well seen Florian, Bart and Micha.

;-)

Now, only msestat-files remain the problem with fpc rev 42375, but sure, the solution is near.

Happy sunday.

Fre;D

-----
Many thanks ;-)