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

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

Browse Source 
git-svn-id: trunk@14966 -
This commit is contained in:
paul 2010-03-02 09:51:41 +00:00
parent be98b13554
commit 71c99628d4
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/database.inc
View File

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