Fix issue #1204: unable to delete a "0" char in Default field in the table editor

This commit is contained in:
Ansgar Becker
2009-06-09 18:38:50 +00:00
parent b52791aad6
commit 6c4b998069

View File

@@ -1202,7 +1202,7 @@ begin
newText := IntToStr(Integer(cdtCurTS)) + 'CURRENT_TIMESTAMP'
else
newText := IntToStr(Integer(cdtAutoInc)) + 'AUTO_INCREMENT';
if newtext <> FTree.Text[FNode, FColumn] then
if newtext <> IntToStr(Integer(DefaultType)) + DefaultText then
FTree.Text[FNode, FColumn] := newtext;
if FTree.CanFocus then
FTree.SetFocus;