opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Attempt to fix nil pointer exception (issue #2157)

Browse Source
This commit is contained in:
Ansgar Becker
2010-09-08 17:12:04 +00:00
parent f323420ef1
commit bad9c2cec3
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/mysql_connection.pas
View File

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