From 40ce19d0b087cd33c0139af29b7aad8baff30992 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 2 Feb 2009 20:42:27 +0000
Subject: [PATCH] Fix handling tables with more than 2^32 rows, see rfe #972

---
 source/main.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index c8f703ba..cb886648 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -3415,7 +3415,7 @@ end;
 
 procedure TMainForm.viewdata(Sender: TObject);
 var
-  i, count             : Integer;
+  i                    : Integer;
   select_base          : WideString;
   select_from          : WideString;
   sl_query             : TWideStringList;
@@ -3425,7 +3425,7 @@ var
   rx                   : TRegExpr;
   ColType              : String;
   ColExists, ShowIt    : Boolean;
-  MatchingRows         : Int64;
+  Count, MatchingRows  : Int64;
 
 procedure InitColumn(name: WideString; ColType: String; Visible: Boolean);
 var
@@ -3642,7 +3642,7 @@ begin
         sl_query.Add(select_from);
         // Apply custom WHERE filter
         if DataGridCurrentFilter <> '' then sl_query.Add('WHERE ' + DataGridCurrentFilter);
-        MatchingRows := StrToInt(GetVar(sl_query.Text));
+        MatchingRows := MakeInt(GetVar(sl_query.Text));
         count := MatchingRows;
         if count > GRIDMAXTOTALROWS then
           count := GRIDMAXTOTALROWS;