Attempt to fix nil pointer exception (issue #2157)

This commit is contained in:
Ansgar Becker
2010-09-08 17:12:04 +00:00
parent f323420ef1
commit bad9c2cec3

View File

@ -2453,6 +2453,9 @@ end;
function TDBObject.IsSameAs(CompareTo: TDBObject): Boolean;
begin
if not Assigned(CompareTo) then
Result := False
else
Result := (Name = CompareTo.Name) and (NodeType = CompareTo.NodeType) and (Database = CompareTo.Database);
end;