label3.Caption:='必须整数,请重新输入';这个功能报错.(50)

如果孩子输入的是小数,那么程序就提示, '必须整数,请重新输入';但现在程序点OK后,报错.如何修改了?试着在其他事件里加了,也不成功.所以就没有贴上来.procedure TForm1.Button1Click(Sender: TObject); begin if Trim(Edit1.Text) = '' thenbegin MessageBox(Handle, '请在文本框里输入结果', '系统提示', MB_ICONINFORMATION or MB_OK); Exit;end; beginbegin tryif (StrToInt(edit1.Text)=(int1+int2)) thenbegin//Randomize ; //int1:=random(10); //增加这句，重新生成int1 // int2:=random(10); //增加这句，重新生成int2 newintegers; label3.Caption :='输入正确，请计算下题'; label1.Caption:=intTostr(int1)+'+'+intToStr(int2)+'='; end else begin //label3.Caption:='输入正确，请计算下题'; //edit1.clear; //end; //except label3.Caption:='输入错误，请重新输入'; edit1.clear; edit1.SetFocus ; end; except label3.Caption:='必须整数,请重新输入'; edit1.SetFocus ; end; end; end; end;procedure TForm1.FormCreate(Sender: TObject);beginRandomize; newintegers;//int1:=random(10);//int2:=random(10);label1.Caption:=intTostr(int1)+'+'+intToStr(int2)+'=';edit1.Text:='';end;procedure TForm1.NewIntegers;begin int1:=random(10); int2:=random(10);end;

可怜天下父母亲。唉。。Procedure TForm1.Button1Click(Sender: TObject); Function ISInteger(Str: String): Boolean; Begin result := true; If Str <> '0' Then Begin result := StrToIntDef(Str, 0) <> 0; End; End;Begin If Trim(Edit1.Text) = '' Then Begin MessageBox(Handle, '请在文本框里输入结果', '系统提示', MB_ICONINFORMATION Or MB_OK); Edit1.SetFocus; End Else If Not ISInteger(Edit1.Text) Then Begin MessageBox(Handle, '必须整数,请重新输入!', '系统提示',MB_ICONINFORMATION Or MB_OK); Edit1.SetFocus; End Else Begin If (StrToInt(Edit1.Text) = (int1 + int2)) Then Begin newintegers; Label3.Caption := '输入正确，请计算下题'; Label1.Caption := IntToStr(int1) + '+' + IntToStr(int2) + '='; edit1.Clear ; edit1.SetFocus ; End Else Begin Label3.Caption := '输入错误，请重新输入'; Edit1.clear; Edit1.SetFocus; End; End;End;Procedure TForm1.FormCreate(Sender: TObject);Begin Randomize; newintegers; Label1.Caption := IntToStr(int1) + '+' + IntToStr(int2) + '='; Edit1.Text := '';End;Procedure TForm1.newintegers;Begin int1 := Random(10); int2 := Random(10);End;

谢谢啊....孩子这会可以好好的用了...[][][8D][]