Fix undetected column collation, caused by non rewound collations list. See http://www.heidisql.com/forum.php?t=7893.

This commit is contained in:
Ansgar Becker
2011-03-03 21:35:57 +00:00
parent 45d4bcc5f7
commit e088db535f

View File

@@ -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');