形式 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;
正文完