Fix detection of DEFAULT value in CREATE TABLE code of MS SQL tables, which is wrapped in parentheses. See http://www.heidisql.com/forum.php?t=16748

This commit is contained in:
Ansgar Becker
2014-11-02 18:55:32 +00:00
parent f832178eec
commit 0725da854f

View File

@@ -4566,7 +4566,7 @@ begin
Col.DefaultType := cdtCurTSUpdateTS;
end;
Delete(ColSpec, 1, rxCol.MatchLen[0]);
end else if (ColSpec[1] = '''') or (Copy(ColSpec, 1, 2) = 'b''') then begin
end else if (ColSpec[1] = '''') or (Copy(ColSpec, 1, 2) = 'b''') or (Copy(ColSpec, 1, 2) = '(''') then begin
InLiteral := True;
LiteralStart := Pos('''', ColSpec)+1;
for i:=LiteralStart to Length(ColSpec) do begin