StrToIntdef-字符串转整型（带判断）

 

StrToIntdef (const S:string;default:longint):longint;

尝试将字符或字符串转换为长整型，如果不能转换则返回0,
例如： edit1.text：='1000';
      则   StrToIntdef(edit1.text,0)
返回值 1000.
如果      edit1.text：='abcdef'
              StrToIntdef(edit1.text,0)
返回值   0.(这时结果会出错的)