Fix sporadic access violation when a new row was inserted and UPDATE or INSERT gets posted. Fixes issue #1496

This commit is contained in:
Ansgar Becker
2009-11-30 20:58:31 +00:00
parent 84f7663887
commit cc028cee30

View File

@ -6768,6 +6768,8 @@ end;
function TMainForm.DataGridPostUpdateOrInsert(Node: PVirtualNode): Boolean;
begin
Result := True;
if not Assigned(Node) then
Exit;
if Cardinal(High(DataGridResult.Rows)) >= Node.Index then
case DataGridResult.Rows[Node.Index].State of
grsModified: Result := GridPostUpdate(DataGrid);