关于exit

Question

if      (StrToInt(edt_sscs.Text)<=0)    then
        begin
                 showMessage('实收册数必须大于0');
                 //edt_sscs.SetFocus;
                 exit;
        end;

Answer 1

if      (StrToInt(edt_sscs.Text)<=0)    then
        begin
                 showMessage('实收册数必须大于0');
                 //edt_sscs.SetFocus;
                 System.exit; //看看Exit是不是被自己声明了一次
        end;
  

Answer 2

你的button的default设为false，试试看，

Answer 3

if      (StrToInt(edt_sscs.Text)<=0)    then
        begin
                 showMessage('实收册数必须大于0');
                 //edt_sscs.SetFocus;
                 System.exit; //看看Exit是不是被自己声明了一次
        end;
  

Answer 4

StrToInt(edt_sscs.Text) 这里会可能会出现异常，加一个判断还有用 Exit 不会关闭 Form

Answer 5

“在button click的时候判断edit的text,如果text不符合就退出这个click的rocedure，并让edit重新设为焦点”  if <text不符合> then begin
    //...
    edit1.Focused:=true;
  end;这里procedure无需写退出代码
exit 是退出应用程序的，不是退出procedure.

Answer 6

估计你的button用了默认值，default＝True and result＝cancel
是不是用bitbutton?
在你不经意之间可能会搞错的，不管你判断与否都会退出来
不关Exit的事

Answer 7

button的default 已经是false阿

Answer 8

“在button click的时候判断edit的text,如果text不符合就退出这个click的rocedure，并让edit重新设为焦点”  if <text不符合> then begin
    //...
    edit1.Focused:=true;
  end;这里procedure无需写退出代码
exit 是退出应用程序的，不是退出procedure.

Answer 9

我猜想你是这样创建的窗体吧：
 try
    application.CreateForm(Tform2,form2);
    form2.showmodal;
 finally
    form2.free;
 end;
然后在form2上有一个binbtn按钮,你应该是把它的modalresult属性设为mrok了，如果是这样的话那你只要点这个按钮窗体就会关掉，而根本不会执行你的代码，窗体消失也不是你的exit起的作用.解决办法,把binbtn的modalresult设成mrnone等,然后人为的释放窗体!

Answer 10

try
if (StrToInt(edt_sscs.Text)<=0)    then
        begin
          showMessage('实收册数必须大于0');
          //edt_sscs.SetFocus;
          exit;
        end;
except
  showmessage('..');
end;
你看一下执行的是那一句；//如果 edt_sscs.text不是int的话，根本就不执行showmessage('实收册数必须大于0')这一句；

Answer 11

问题解决了，暴雪老兄说的对，就是modalresult属性设为mrok了

Answer 12

1:button1.modealresult := ...//全部去掉；
2:你在这个事件里定收其它的语句，不要写exit，试一试，是button1设置错了还是exit的事；
exit 不会退出程序的，只会退出某个过程或函数

Answer 13

晚了一步，算了算了，不过，
你是button1.modealresult设置错了；
不是bitbtn.kind设置错了；