Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

+ Removed TDatabase.Notification (as suggested by Martin Schreiber, bug #4468

git-svn-id: trunk@1657 -
joost 20 years ago
parent
6d291bb336
commit
299ddaa1be
2 changed files with 0 additions and 8 deletions
Unified View Show Diff Stats
  1. 0 7
      fcl/db/database.inc
  2. 0 1
      fcl/db/db.pp

+ 0 - 7
fcl/db/database.inc
View File 

@@ -88,13 +88,6 @@ begin
 
     end;
 
     end;
 
 end;
 
 end;
 
 
 
-
 
-procedure TDatabase.Notification(AComponent: TComponent; Operation: TOperation);
 
-
 
-begin
 
-  //!! To be implemented.
 
-end;
 
-
 
 constructor TDatabase.Create(AOwner: TComponent);
 
 constructor TDatabase.Create(AOwner: TComponent);
 
 
 
 begin
 
 begin

+ 0 - 1
fcl/db/db.pp
View File 

@@ -1402,7 +1402,6 @@ type
 
     Procedure CheckDisConnected;
 
     Procedure CheckDisConnected;
 
     procedure InternalHandleException; virtual;
 
     procedure InternalHandleException; virtual;
 
     procedure Loaded; override;
 
     procedure Loaded; override;
 
-    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 
     Procedure DoInternalConnect; Virtual;Abstract;
 
     Procedure DoInternalConnect; Virtual;Abstract;
 
     Procedure DoInternalDisConnect; Virtual;Abstract;
 
     Procedure DoInternalDisConnect; Virtual;Abstract;
 
   public
 
   public