Hello Fred, I'd like to go back to the last discussions if you allow it.
It"s about : segmentation fault lib/common/widgets/msewidgets.pas Line 4206 OF FUNCTION TCOL_SETOPTIONS1 the line code which raise this error is in procedure dosum if tdbwidgetcols(odbgrid.datacols[iCol]).getitemclasstype = tdbintegerEdit then .... It's the same error with if twidgetcols(odbgrid.datacols[iCol]).getitemclasstype = tdbintegerEdit then .... Regard. Med. ________________________________ De : fredvs <fi...@hotmail.com> Envoyé : lundi 24 mai 2021 13:47 À : mseide-msegui-talk@lists.sourceforge.net <mseide-msegui-talk@lists.sourceforge.net> Objet : Re: [MSEide-MSEgui-talk] BufDataset Hello Med. To resume, I propose this for the patch: procedure sumfield(const afield: tfield; out asum: currency); "afield" type could be: [ftinteger,ftsmallint,ftword,ftbcd,ftfloat] // should we add ftlargeint? procedure sumfield(const afield: tfield; out asum: double); "afield" type could be: [ftinteger,ftsmallint,ftword,ftfloat,ftcurrency]) // // should we add ftlargeint? procedure sumfield(const afield: tfield; out asum: integer); "afield" type could be: [ftinteger,ftsmallint,ftword,) // should we add round([ftfloat,ftcurrency])? procedure sumfield(const afield: tfield; out asum: int64); "afield" type could be: [ftlargeint,ftinteger,ftsmallint,ftword] // should we add round([ftfloat,ftcurrency])? Here the patched /mseide-msegui/lib/common/db/msebufdataset.pas: msebufdataset.zip <http://mseide-msegui-talk.13964.n8.nabble.com/file/t2/msebufdataset.zip> Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
_______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk