fix: two more exception causes found in uploaded reports

ansgarbecker · ansgarbecker · commit e33ea1d1fb9e · 2026-03-06T13:05:56.000+01:00
diff --git a/source/exportgrid.pas b/source/exportgrid.pas
@@ -473,6 +473,10 @@ procedure TfrmExportGrid.CalcSize(Sender: TObject);
   CalculatedCount, SelectedCount, AllCount: Int64;
 begin
   GridData := Mainform.GridResult(Grid);
+  if not Assigned(GridData) then begin
+    MainForm.LogSQL('Failed to get current results');
+    Exit;
+  end;
   AllSize := 0;
   SelectedSize := 0;
   chkIncludeAutoIncrement.Enabled := GridData.AutoIncrementColumn > -1;
diff --git a/source/main.pas b/source/main.pas
@@ -7567,24 +7567,26 @@ procedure TMainForm.QuickFilterClick(Sender: TObject);
     if ExecRegExpr('Prompt\d+$', Act.Name) then begin
       // Item needs prompt
       TableCol := SelectedTableFocusedColumn;
-      Col := Conn.QuoteIdent(TableCol.Name, False);
-
-      if (TableCol.DataType.Index = dbdtJson)
-        and (Conn.Parameters.NetTypeGroup = ngPgSQL) then begin
-        Col := Col + '::text';
-      end;
-      Val := DataGrid.Text[DataGrid.FocusedNode, DataGrid.FocusedColumn];
-      if InputQuery(_('Specify filter-value...'), Act.Caption, Val) then begin
-        if Act = actQuickFilterPrompt1 then
-          Filter := Col + ' = ' + Conn.EscapeString(Val, TableCol.DataType)
-        else if Act = actQuickFilterPrompt2 then
-          Filter := Col + ' != ' + Conn.EscapeString(Val, TableCol.DataType)
-        else if Act = actQuickFilterPrompt3 then
-          Filter := Col + ' > ' + Conn.EscapeString(Val, TableCol.DataType)
-        else if Act = actQuickFilterPrompt4 then
-          Filter := Col + ' < ' + Conn.EscapeString(Val, TableCol.DataType)
-        else if Act = actQuickFilterPrompt5 then
-          Filter := Conn.SqlProvider.GetSql(qLikeCompare, [Col, Conn.EscapeString('%'+Val+'%', TableCol.DataType)]);
+      if Assigned(TableCol) then begin
+        Col := Conn.QuoteIdent(TableCol.Name, False);
+
+        if (TableCol.DataType.Index = dbdtJson)
+          and (Conn.Parameters.NetTypeGroup = ngPgSQL) then begin
+          Col := Col + '::text';
+        end;
+        Val := DataGrid.Text[DataGrid.FocusedNode, DataGrid.FocusedColumn];
+        if InputQuery(_('Specify filter-value...'), Act.Caption, Val) then begin
+          if Act = actQuickFilterPrompt1 then
+            Filter := Col + ' = ' + Conn.EscapeString(Val, TableCol.DataType)
+          else if Act = actQuickFilterPrompt2 then
+            Filter := Col + ' != ' + Conn.EscapeString(Val, TableCol.DataType)
+          else if Act = actQuickFilterPrompt3 then
+            Filter := Col + ' > ' + Conn.EscapeString(Val, TableCol.DataType)
+          else if Act = actQuickFilterPrompt4 then
+            Filter := Col + ' < ' + Conn.EscapeString(Val, TableCol.DataType)
+          else if Act = actQuickFilterPrompt5 then
+            Filter := Conn.SqlProvider.GetSql(qLikeCompare, [Col, Conn.EscapeString('%'+Val+'%', TableCol.DataType)]);
+        end;
       end;
     end
     else begin
