delphi 程序执行完了会自动退出···难道会选择最近的Exit?
来源:互联网 发布:生死狙击一键刷枪软件 编辑:程序博客网 时间:2024/06/06 09:03
一个奇怪的问题,当条件为False时,还是掉进了过程里:
ret:=IsBoxFull(StrToInt(E_BoxNo.Text),RG_Box);
if ret=true then
begin
if Application.MessageBox('该箱表数已满,是否打印条形码!','系统提示',MB_YesNo)=IDYES Then
begin
f_Main.CDS_meter.Close();
f_Main.SQLQ_meter.Params.ParamByName('BoxNo').Value :=StrToInt(E_BoxNo.Text) ;
f_Main.CDS_meter.Open();
R_PrintInStorageNumber.Print;
RB_NewBox.Checked := True ;
CDS_MaxBoxNo.Close();
CDS_MaxBoxNo.Open;
E_BoxNo.Text := IntToStr(CDS_MaxBoxNo['MaxBoxNo']+1);
f_Main.CDS_meter.Close();
f_Main.SQLQ_meter.Params.ParamByName('BoxNo').Value := StrToInt(E_BoxNo.Text) ;
f_Main.CDS_meter.Open();
E_MeterNo.Text := '';
E_MeterNo.SetFocus();
Exit;
end
else
begin
if Application.MessageBox('该箱表数已满,是否更换新箱号入库!','系统提示',MB_YesNo)=IDYES Then //需要修改
Begin
RB_NewBox.Checked:=True;
CDS_MaxBoxNo.Close;
CDS_MaxBoxNo.Open;
E_BoxNo.Text:=IntToStr(CDS_MaxBoxNo['MaxBoxNo']+1);
f_Main.CDS_meter.Close();
f_Main.SQLQ_meter.Params.ParamByName('BoxNo').Value := StrToInt(E_BoxNo.Text) ;
f_Main.CDS_meter.Open();
E_MeterNo.Text := '';
E_MeterNo.SetFocus();
end
else
f_Main.CDS_meter.Close();
f_Main.SQLQ_meter.Params.ParamByName('BoxNo').Value := StrToInt(E_BoxNo.Text) ;
f_Main.CDS_meter.Open();
E_MeterNo.Text := '';
E_MeterNo.SetFocus();
Exit;
end;
end;
为什么ret=False 了,下面的Exit语句还是执行到了?
要是在exit前面加一个showmessage('OK')会怎样?在前面加了会跳到Exit,在后面加了就不会跳进来了,这个算不算是delphi的隐规则
啊?也许是吧,只是Borland没公布出来。
- delphi 程序执行完了会自动退出···难道会选择最近的Exit?
- 启动组程序会自动执行两次的异常现象
- 除非有system.exit(1)退出虚拟机,否则即使return语句在finally之前也会执行finally
- ubuntu 为什么QQ会自动退出?
- 关于2>&1 &的终端退出时进程会自动退出的问题
- 程序执行正确, 但退出时崩溃在main() 最后一个语句之后。为什么会这样?
- 鼠标选择的内容会被自动删除
- override的方法,为什么会被自动执行?
- 关于c#的问题,执行application.exit();的时候会触发Form1_FormClosing
- 程序退出,会直接回到桌面 而不会 退出到先前的activity界面
- CFileDialog会改变程序的默认执行路径
- 最近安装Eclipse adt的时候会爆出:java was started but returned exit code = 13
- 一个运行后会自动销毁的程序
- 为什么刷新页面会触发最近执行过的一个按钮事件
- 当退出APP,再打开APP APPConext的onCreate会重新执行吗?
- myeclipse中编辑到request.的时候,myeclipse就会自动退出的解决
- myeclipse中编辑到request.的时候,myeclipse就会自动退出的解决
- 当进程退出后,动态申请的内存会自动释放吗
- 信息技术的重要性
- C++语法细微(一)(面向过程)
- Oracle 跟踪事件 set event
- SQL中char、varchar 和nchar、nvarchar的区别,另外加一转换存储过程
- ssh scp sftp
- delphi 程序执行完了会自动退出···难道会选择最近的Exit?
- (cc) Linux下隐藏进程
- HINSTANCE初了解
- 基于MTD的NAND驱动开发(一)
- 在GUI程序中使用控制台的两种方法
- 做人比做事更重要
- 基于MTD的NAND驱动开发(三)
- Begin
- 标准DLL编程代码框架