strtointDef

$[SysUtils.pas 　　

功能 返回字符串S转换成整数

说明 字符串非整数表达时则返回默认值Default

 　　参考 procedure System.Val 　

　例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);

　　返回int（Edit1.Text）

如果不成功，返回0

Edit1.Text := IntToStr(StrToIntDef(Edit1.Text, 0) + 1);