From a1f5bd294036d96474a4d4dcb030dbde440925da Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 18 Jan 2009 18:43:10 +0000
Subject: [PATCH] Fix bug #931: Access violation when deleting many or all rows
 in datagrid

---
 source/main.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/main.pas b/source/main.pas
index 394f83f4..6f080850 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -7951,6 +7951,7 @@ begin
   Node := Sender.GetFirstSelected;
   sql := 'DELETE FROM '+mask(SelectedTable)+' WHERE';
   while Assigned(Node) do begin
+    EnsureChunkLoaded(Sender, Node);
     sql := sql + ' (' +
       GetWhereClause(@FDataGridResult.Rows[Node.Index], @FDataGridResult.Columns) +
       ') OR';