paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 06:47:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Notification should be protected

Browse Source 
git-svn-id: trunk@23455 -
This commit is contained in:
michael 2013-01-20 11:25:28 +00:00
parent 632db2229f
commit f566201a8d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -278,6 +278,7 @@ type
procedure SetReadOnly(AValue : Boolean); override;
Function LogEvent(EventType : TDBEventType) : Boolean;
Procedure Log(EventType : TDBEventType; Const Msg : String); virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
procedure Prepare; virtual;
procedure UnPrepare; virtual;
@ -286,7 +287,6 @@ type
destructor Destroy; override;
procedure SetSchemaInfo( ASchemaType : TSchemaType; ASchemaObjectName, ASchemaPattern : string); virtual;
property Prepared : boolean read IsPrepared;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
function RowsAffected: TRowsCount; virtual;
function ParamByName(Const AParamName : String) : TParam;
protected