From 6c4b998069a7501b87b6af1dfdb0e613776f1cb9 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 9 Jun 2009 18:38:50 +0000
Subject: [PATCH] Fix issue #1204: unable to delete a "0" char in Default field
 in the table editor

---
 source/grideditlinks.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index fa93deef..db37a325 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -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;