while true do
begin
If abc Then break;
application.ProcessMessages;
end;
abc是在其它操作中得到的变量,要在循环体里面加一个如果在10秒内abc没有得到真值就自动退出循环体。
begin
If abc Then break;
application.ProcessMessages;
end;
abc是在其它操作中得到的变量,要在循环体里面加一个如果在10秒内abc没有得到真值就自动退出循环体。
解决方案 »
- 求教一个SQL,该怎么写
- 谁有 Installshield7 的中文教程
- 请教一个释放内存的问题
- 帮个忙!!!解答一下
- 如何在客户端处即时显示刚添加的数据?其中数据在应用程序服务器上添加,超急!
- 请做过物业管理的兄弟进来一看....能处理不同的分摊方式和收费管理的.项目外包.
- 对Object Pascal编译器给类对象分配堆内存细节的一种大胆猜
- 怎样用字符串(如000111001)为系统分配权限?请看这部分不完全正确的代码,请更正
- 方案请教:原来用paradox作单机版,现需改为支持局域网,一定要C/S结构、SQL吗?什么方案最简单?
- 再问数据表录入问题
- 请教读取一个文件中32位浮点数据的问题
- 如何实现在Dbgrid中将记录指针移动时候触发事件?
procedure TForm1.Button1Click(Sender: TObject);
var a:cardinal;
begin
a:=gettickcount;
while true do
begin
if (gettickcount-a>10000) or abc then
begin
showmessage('');
break;
end;
end;
end;
while GetTickCount - OldTime <= 10000 do
begin
If abc Then break;
application.ProcessMessages;
end;
不过你这个程序的效率实在是……
strtTime := now;
while
beign
if (SecondsBetween(now,startTime)>10) and (abc=false) then
break;
...
end
t1,t2:cardinal;t1:=gettickcount;
while true do
begin
If abc Then break
else
begin
t2:=gettickcount;
if t2-t1>10000 then
break;
end;
application.ProcessMessages;
end;
-----------------------------------------------------还好比楼上的好看一点点