Table editor: Better use NULL as a valid default value for a new blank INT column, rather than an empty string ('').

This commit is contained in:
Ansgar Becker
2009-05-21 23:13:29 +00:00
parent e9bf96f493
commit bece59d669

View File

@@ -678,7 +678,7 @@ begin
Properties.Assign(DefProperties);
end else begin
idx := Columns.Count;
Properties.CommaText := 'INT,10,'+BoolToStr(False)+','+BoolToStr(True)+',0,,';
Properties.CommaText := 'INT,10,'+BoolToStr(False)+','+BoolToStr(True)+','+IntToStr(Integer(cdtNull))+'NULL,,';
end;
Columns.InsertObject(idx, 'Column '+IntToStr(idx+1), Properties);
SelectNode(listColumns, idx);