各位前辈 帮忙解决个问题

这种简单的程序还会有什么不足...
1 限制操作数 EDIT 的长度
2 限制只能输入数字
3 开始计算结果
4 判断显示余数
5 显示^

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
begin
   if (Edit1.Text = '') or (Edit2.Text = '') then
   begin
     ShowMessage('被除数,除数必须不能为空');
     Exit;
   end;
   if (pos('.', Edit1.Text) > 0) or (pos('.', Edit2.Text) > 0) then
   begin
     ShowMessage('只能输入整数');
     Exit;
   end;
   if (Edit1.Text <> '') and (Edit2.Text <> '') then
   begin
     try
       i := StrToInt(Trim(Edit1.Text));
       j := StrToInt(Trim(Edit2.Text));
     except
       begin
         ShowMessage('只能输入数字');
         Exit;
       end;
     end;
     if j = 0 then
     begin
       ShowMessage('除数不能为0');
       Exit;
     end;
     if (StrToInt(Edit1.Text) > 100) or (StrToInt(Edit1.Text) < 0) or (StrToInt(Edit2.Text) > 100) or (StrToInt(Edit2.Text) < 0) then
     begin
       ShowMessage('只能输入0-100的整数');
       Exit;
     end;
     Edit3.Text:=IntToStr(i div j);
     if CheckBox1.Checked then
       Edit4.Text := IntToStr(i mod j);
   end;
end;
就这样就可以了

Edit控件可以限制只能输入数字，不过Delphi7或者更早的版本不知道有没有这个功能。
给你个代码参考一下吧
...
var
ed1, ed2 : integer;
begin
ed1 := StrToInt(edit1.text);
ed2 := StrToint(edit2.text);
if (ed1 in [1..100]) and (ed2 in [1..100]) then
begin
if checkbox1.checked then
edit4.text := intToStr(ed1 mod ed2);
edit3.text := IntToStr(ed1 div ed2);
end
else
showmessage('操作数只能输入1~100之间的整数');
end；


谢谢你的指点。

谢谢你哦！

太感谢你了

补充8楼：在那帖子的6楼。

图片毁了兴致