一个小问题(如何实现这个小功能)，在线。

Question

一个edit1控件，对应一个数据库中的字段。字段是int型。
想实现如下功能。
当edit1中不是一个有效数字时，把它值赋为0在VB中可以用iif这个函数来实现。
在delphi中不知道 用什么 函数来实现。

Answer 1

table1.fieldbyname('字段').values.asstring;

Answer 2

用StrToIntDef(...);
例如：
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Text:=IntToStr(StrToIntDef(Edit1.Text,0));
end;

Answer 3

就是一个数值就是了。在VB中可以通过val数来转换.val可以把不符合的值转成0
在delphi中可以吗、

Answer 4

用错误陷阱搞定
try
 edit1.text:=inttostr( strtoint(edit1.text)) 
except
 edit1.text:='0'
end

Answer 5

Delphi中也有一个Val()过程.
procedure Val(Str:String;var V;var Code:Integer);

Answer 6

wlhtake(正在调试) ( ) 的方法只能输入9个数字

Answer 7

把字符串取出来格式化一下，或者用mastEdit格件。