在循环中处理一些数据,循环是无限循环,手工干预中断循环,这样每处理一条信息将当前的处理情况显示在一个Label上,可是每当我点击按钮开始执行数据处理之后,程序就失去反应,cpu全被这个程序百分之百占用,我想加个开始按钮、停止按钮,点击开始后就开始处理,点击停止就停止处理,开始现在点击开始后我就控制不了程序了,怎么办?
解决方案 »
- 再发个关于EDIT的问题。
- 推荐基本delphi入门之类的好书
- 急!!! 数据库中a字段是float型,DBEdit显示出来的值太长了,怎样能让它显示四舍五入,保留2位小数!~~~
- 有关在Delphi中应用OpenGL载入Bmp位图
- 有关存储过程结果的调用问题
- 为什么在预览报表的时候会先跳出装载报表控件的窗体,然后才能预览报表?是什么错误造成的?
- 定义变量Variant,在调试的时候怎么看Variant类型的值?
- 请问如何实现win9x开始菜单的文档键的功能?
- 请问那位高手一个问题
- 在installsheild pro6.2中如何建立url链接
- 100分问题:已知窗口句柄,如何取得窗口类型?
- 在线等待!有关菜单授权的问题
bFlag := False;
while .... do
begin
if bFlag then break; //加一个全局变量如果bFlag 为 True 则退出循环
....
Application.ProcessMessage;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
bFlag := True;
end;
if option1.value then break點擊看能不能 中斷循環
Application.ProcessMessage;就应该能起作用
var
dFlag: boolean;
button1.Click
dFlag:= false;
whlie true do
begin
......your Program
Application.ProcessMessage;
if dFlag then Break;
endbutton2.Click
dFalg := true;