From 9451680e2e6faab1eb4587f8645265d7d1e8b43b Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 9 Mar 2011 20:20:33 +0000
Subject: [PATCH] Silence privilege error when user is not allowed to fire SHOW
 DATABASES. See issue #1485.

---
 source/mysql_connection.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas
index 97b663bf..b1c108e2 100644
--- a/source/mysql_connection.pas
+++ b/source/mysql_connection.pas
@@ -1282,8 +1282,11 @@ begin
         if FAllDatabases[i] = '' then
           FAllDatabases.Delete(i);
       end;
-    end else
+    end else try
       FAllDatabases := GetCol('SHOW DATABASES');
+    except on E:EDatabaseError do
+      FAllDatabases := TStringList.Create;
+    end;
   end;
   Result := FAllDatabases;
 end;