From e088db535fe813dca494a8ce896d9a4b23bfaedb Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 3 Mar 2011 21:35:57 +0000
Subject: [PATCH] Fix undetected column collation, caused by non rewound
 collations list. See http://www.heidisql.com/forum.php?t=7893.

---
 source/mysql_connection.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas
index f7a1a4a7..c4d06508 100644
--- a/source/mysql_connection.pas
+++ b/source/mysql_connection.pas
@@ -2124,8 +2124,7 @@ begin
       Delete(ColSpec, 1, rxCol.MatchLen[0]);
     end;
     if Col.Collation = '' then begin
-      if not Assigned(Collations) then
-        Collations := CollationTable;
+      Collations := CollationTable;
       if Assigned(Collations) then while not Collations.Eof do begin
         if (Collations.Col('Charset') = Col.Charset) and (Collations.Col('Default') = 'Yes') then begin
           Col.Collation := Collations.Col('Collation');