怎么样才可以在delphi修改dbgrid里面某值不能为负数

2025-03-01 19:19:48

推荐回答（1个）

回答1：

Table右键 Fields，找到SL字段双击 OnSetText写代码
procedure TForm.SLSetText(Sender: TField;
const Text: String);
var value :double;
begin
if Trim(Text)='' then Exit;
try
Value := StrToFloat(text);
if Value < 0 then
begin
Application.MessageBox('输入数据不能小于零,请重新输入!','润嘉软件',48);
Exit;
end;
Sender.AsString := Text;
except
Application.MessageBox('输入数据不能为负值,请重新输入!','润嘉软件',48);
Sender.AsString := '';
Abort;
end;
end;