Skip to content
Permalink
Browse files

Make TDBObject.IsSameAs more crash stable, in case the second object …

  • Loading branch information
ansgarbecker committed Dec 16, 2019
1 parent fc86cd4 commit 3d1468e77a0d1403a0a1155b868cc5409f888a2a
Showing with 4 additions and 3 deletions.
  1. +4 −3 source/dbconnection.pas
@@ -7459,16 +7459,17 @@ procedure TDBObject.Assign(Source: TPersistent);

function TDBObject.IsSameAs(CompareTo: TDBObject): Boolean;
begin
if not Assigned(CompareTo) then
Result := False
else
if (not Assigned(CompareTo)) or (CompareTo = nil) then begin
Result := False;
end else begin
Result := (Name = CompareTo.Name)
and (NodeType = CompareTo.NodeType)
and (Database = CompareTo.Database)
and (Schema = CompareTo.Schema)
and (Column = CompareTo.Column)
and (ArgTypes = CompareTo.ArgTypes)
and (Connection = CompareTo.Connection);
end;
end;


0 comments on commit 3d1468e

Please sign in to comment.
You can’t perform that action at this time.