From 883c5287e63b34628abd07e87d1cb7cb89e6e0cc Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 13 May 2020 08:08:31 +0200
Subject: [PATCH] Issue #1028: Compatibility to old MySQL 4.x servers where
 SHOW FULL COLUMNS did not yet have "Collation" and "Comment" columns.

---
 source/dbconnection.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 842049d3..c1b8459b 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -4852,7 +4852,7 @@ begin
     Col.Name := ColQuery.Col(0);
     Col.OldName := Col.Name;
     Col.ParseDatatype(ColQuery.Col('Type'));
-    Col.Collation := ColQuery.Col('Collation');
+    Col.Collation := ColQuery.Col('Collation', True);
     if Col.Collation.ToLowerInvariant = 'null' then
       Col.Collation := '';
     Col.AllowNull := ColQuery.Col('Null').ToLowerInvariant = 'yes';
@@ -4877,7 +4877,7 @@ begin
       Col.OnUpdateType := cdtExpression;
     end;
 
-    Col.Comment := ColQuery.Col('Comment');
+    Col.Comment := ColQuery.Col('Comment', True);
     ColQuery.Next;
   end;
   ColQuery.Free;