Fix issue #1270, Table editor detects DEFAULT 'xyz' as DEFAULT NULL if table has collation

This commit is contained in:
Ansgar Becker
2009-07-22 20:18:41 +00:00
parent 0c3bc34802
commit a6e0bb6dc8

View File

@ -335,7 +335,7 @@ begin
Props[2] := BoolToStr(False);
// Collation
rxCol.Expression := '^(CHARACTER SET \w+)?\s+COLLATE (\w+)\b';
rxCol.Expression := '^(CHARACTER SET \w+\s+)?COLLATE (\w+)\b';
if rxCol.Exec(ColSpec) then begin
Props[6] := rxCol.Match[2];
Delete(ColSpec, 1, rxCol.MatchLen[0]+1);