Forum > Databases

Inheritance of 'stored False' directive...?

(1/1)

Sieben:
The inheritance of eg SQLite3Connection is TDatabase -> TSQLConnection -> TSQLite3Connection. For good reasons TDatabase introduces property Connected as:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---published//...property Connected: Boolean read FConnected write SetConnected stored False;
TSQLConnection repeats this as:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---published//...property Connected stored False;
despite the fact that it is already published. TSQLite3Connection doesn't mention it at all. Nevertheless it stores it's Connected status. How come...?

(Please move this if it's a general issue with stored directives)

LacaK:
Where do you see that Connected property has stored modifier?
I do not see it in my source files in fcl-db...

Sieben:
I do, in fcl-db/src/base/db.pas and fcl-db/src/sqldb/sqldb.pp.

LacaK:
Show me where it is:
https://gitlab.com/freepascal.org/fpc/source/-/blob/main/packages/fcl-db/src/base/db.pas
https://gitlab.com/freepascal.org/fpc/source/-/blob/main/packages/fcl-db/src/sqldb/sqldb.pp

Sieben:
I'm using FPC 3.2.0, and here's what I see:

 

Navigation

[0] Message Index

Go to full version