db: remove dummy checks in SetAfterConnect and friends - they case bugs in Lazarus because we are comparing pointers instead of TMethod (2 pointers)

git-svn-id: trunk@14966 -

packages/fcl-db/src/base/database.inc

@@ -440,7 +440,6 @@ end;
 
 procedure TCustomConnection.SetAfterConnect(const AValue: TNotifyEvent);
 begin
-  if FAfterConnect=AValue then exit;
   FAfterConnect:=AValue;
 end;
 
@@ -464,13 +463,11 @@ end;
 
 procedure TCustomConnection.SetAfterDisconnect(const AValue: TNotifyEvent);
 begin
-  if FAfterDisconnect=AValue then exit;
   FAfterDisconnect:=AValue;
 end;
 
 procedure TCustomConnection.SetBeforeConnect(const AValue: TNotifyEvent);
 begin
-  if FBeforeConnect=AValue then exit;
   FBeforeConnect:=AValue;
 end;
 
@@ -509,7 +506,6 @@ end;
 
 procedure TCustomConnection.SetBeforeDisconnect(const AValue: TNotifyEvent);
 begin
-  if FBeforeDisconnect=AValue then exit;
   FBeforeDisconnect:=AValue;
 end;