在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
形式 function StrToIntDef(const S: string; Default: Integer): Integer; 引用单元 SysUtils.pas 功能 返回字符串S转换成整数 说明 字符串非整数表达时则返回默认值Default 参考 procedure System.Val 例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); 返回int(Edit1.Text) 如果不成功,返回0 例子代码: procedure TForm1.btn1Click(Sender: TObject); var i:Integer; S:string; begin edt2.Clear; for i:= 1 to Length(edt1.Text) do begin S:=IntToStr(StrToIntDef(Copy(edt1.Text,i,1), 0)); edt2.Text:= edt2.Text + S ; end; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论