paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 15:52:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sqldb: TSQLDBLibraryLoader do not check Enabled while loading component properties.

Browse Source 
git-svn-id: trunk@37570 -
This commit is contained in:
lacak 2017-11-07 21:17:20 +00:00
parent efb0730436
commit 1915fd8932
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/sqldblib.pp
View File

@ -38,12 +38,12 @@ implementation
Resourcestring
SErrConnnected = 'This operation is not allowed while the datatabase is loaded';
SErrInvalidConnectionType = 'Invalid connection type : "%s"';
{ TSQLDBLibraryLoader }
procedure TSQLDBLibraryLoader.CheckDisabled;
begin
If Enabled then
If not (csLoading in ComponentState) and Enabled then
DatabaseError(SErrConnnected,Self);
end;