Question

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

Answer 1

与 Grid 组件不同，由于 dbGrid 是与数据源直接相联接的。

通常情况下，如果设置好了数据库组件中字段列表，比如，将指定列的字段设置为数字型，当在 dbgrid 中输入时，delphi 会自动限制只能输入数字和小数点。

其他场合，如果需要对输入进行限制，比如，限制某列（字符类型）只能输入整数或小数，可以考虑编写在与 dbGrid 相联的 DataSource 组件的  OnDataChange 事件中编写校验代码。

参考代码如下：

procedure TForm1.ds1DataChange(Sender: TObject; Field: TField);
var
  s:string;
  n:Integer;
  r:Double;
begin
  if Field<>nil then
    if Field.FieldName='编号' then
    begin
      s := Field.AsString;
      if not (TryStrToInt(s,n) or TryStrToFloat(s,r)) then
      begin
        ShowMessage('当前输入内容不是整数或是小数，请重新输入!');
        tbl1.Cancel;
      end;
    end;
end;

运行效果：