Question

Delphi中：如何限制dbgird或者cxgrid某一列只能输入整数或小数。

程序是直接操作表格(dbgird或cxgrid)进行数据的修改，所以需要限制某一列只能输入整数或小数，否则写入数据库时会报错。求各位帮忙解决，感激不尽！！！

Answer 1

可通过在数据源控件的ondatachange事件中加入约束代码实现。比如table1对应的表定义了ee字段是数值型字段，整数、小数位均有一定长度。下面就是限制ee字段只能输入整数或小数的示例代码（功能是当输入不满足要求时直接回退放弃，并未给出提示，你可自行加入）：
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  x:real;
begin
  x:=table1.FieldByName('ee').AsFloat;
  if abs(table1.FieldByName('dd').AsFloat)>=1 then table1.Cancel;
  if not((int(x)=x)or(abs(x)<1)) then table1.Cancel;
end;

追问

我再试试，思路感觉还比较合理

追答

已验证过了！