Fix crash when trying to add a new grid row while a first one was not yet saved. Closes #788

This commit is contained in:
Ansgar Becker
2019-11-01 12:37:10 +01:00
parent 83e06020e4
commit b2ecff5210

View File

@@ -9401,8 +9401,12 @@ begin
Allowed := Results.SaveModifications;
DisplayRowCountStats(Sender);
end else if Results.Inserted then begin
Results.DiscardModifications;
Sender.DeleteNode(OldNode);
if NewNode <> nil then begin
Results.DiscardModifications;
Sender.DeleteNode(OldNode);
end else begin
Allowed := False;
end;
end;
end;
end;