while Readflag<>'>' do
begin
CanExitTimer.Enabled:=true;
Application.ProcessMessages;
if CanExitTime>20 then
begin
Main.Close;
end;
end;
小弟如上写,但当CanExitTime>20后程序就是不关闭,请指教,谢谢,祝各位朋友新年快乐
begin
CanExitTimer.Enabled:=true;
Application.ProcessMessages;
if CanExitTime>20 then
begin
Main.Close;
end;
end;
小弟如上写,但当CanExitTime>20后程序就是不关闭,请指教,谢谢,祝各位朋友新年快乐
解决方案 »
- 不显示删除回复显示所有回复显示星级回复显示得分回复 跪求高手啊,我每次按了ctrl+f2也就是program reset的时候,都会弹出下面的对话框,然后就必
- 请问batteryinfo是怎么获得信息的?
- 求一款好用的pascal ide
- 释放问题
- 如果读取IE管理加载项中的内容?
- 请教!WinCvs如何配置进行权限控制????
- QReport控件怎么安装?
- ADODataSet过滤时可不可以用Between and
- 朋友怎么上不了CSDN了(在线等待)?
- socketconnection 调用 应用服务器时出现错误?
- 有没有这样的方法关于网络的方案:在我的网站上有个access的数据库,我本机器从外界接受一条数据就发到网站上这个access的数据
- 求delphi開發的自動發送email的程序
begin
CanExitTimer.Enabled:=true;
Application.ProcessMessages;
if CanExitTime>20 then
begin
Break; //退出循环
end;
end;
begin
CanExitTimer.Enabled:=true;
Application.ProcessMessages;
if CanExitTime>20 then
begin
Application.terminate; //
end;
end;
小弟不才,只知道: continue; 结束本次循环.
break; 跳出循环
C++中用Goto也可,但不推荐
正常的退出循环用break,强烈不推荐Application.terminate……
Breakl;或 Exit;
isexit:=false;
while (Readflag<>'>') and (not isexit) do
begin
CanExitTimer.Enabled:=true;
Application.ProcessMessages;
if CanExitTime>20 then
begin
isexit:=true;
end;
end;
delphi里也有GOTO阿……
因代码有具体功能要求,不能用BREAK,请赐教,谢谢
===================================================-_-! 想不明白……
为什么不能用Break
看不出理由的说
program close that means application terminate
if CanExitTime>20 then
begin
Application.terminate;
exit;
end;
但为何 hellolongbin(一个人)兄说的 “强烈不推荐Application.terminate……”,有何不妥吗?
谢谢