• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

========>问题简单,来着回答都给分,各位高手快来吧!!!!!!!!!!!!!!!

lyboy99 2001-07-12 05:55:48
如何有很好的方法跳出循环.
如下面程序是时候运行AAAA(string)和BBBB(String)函数,这二个函数会有很常时间的循环,如何作到按停止键就退出这函数的循环.
procedure TForm1.Button1Click(Sender: TObject);

begin
aaaa(word); //程序运行,aaaa(word),bbbb(word)会常时间循环
bbbb(word);

end;
procedure TForm1.Button2Click(Sender: TObject);

begin
//该如何写退出循环的

end;
//是不是要先在aaaa()和BBBB()函数事先加入退出循环监测语句
请高手解答一下,最好写出退出循环的程序,谢谢
...全文
91 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Nicky_he 2001-07-16
delphi5有个排序的例子,是用多线程写的。
回复
jjdelphi 2001-07-13
线程怎么写?
回复
Hillside 2001-07-13
这种情况有2种方法,多线程和precessmessages.

使用precessmessages一定要慎重,因为它有以下副作用:
1.过多的precessmessages会极大的降低程序效率,必须控制它执行的频率
2.它会打乱message que的顺序,造成程序流程的混乱

所以,多线程是比较好的选择,让主线程来管理界面.
这并不是一个简单的问题.
回复
wolfAone 2001-07-12
来晚了。
回复
NewStarSE 2001-07-12
上面几位的做法都没错,但机器性能会大大下降,所以如果这种循环用得多,还是用线程吧
回复
Barbarian 2001-07-12
刚才还没人回答的,怎么等我写完时已有这么多人回答过了:)
回复
Barbarian 2001-07-12
在循环处理时加入Application.ProcessMessages;
参考如下例程:
procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
begin
for i:=0 to 10000 do
begin
Sleep(1000);
Application.ProcessMessages;
if Application.Terminated then Break;
end;
for j:=0 to 10000 do
begin
Sleep(1000);
Application.ProcessMessages;
if Application.Terminated then Break;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
回复
lastlove 2001-07-12
看看,我也想知道-
回复
qin_wei 2001-07-12
这样简单的问题就用两个线程,就体现不出delphi的优点了。
回复
qin_wei 2001-07-12
procedure TForm1.aaaa(word);
begin
while (flag=1)do
begin
..............
Application.ProcessMessage();
end
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
flag:=0;
end;
回复
ahphone 2001-07-12
做两线程吧?

偶只会VC,进来看看,呵呵~~~~~~~~~~
回复
Nicky_he 2001-07-12
没用的,
应该是写两个进程,
一个做监测,
好象好多例子都有吧。
回复
相关推荐
【经典箴言 || 人生感悟 】//wodeganwu3034 == 8. 回溯做过的事情,如Review自己曾经写过的代码或者设计,...
所以对于人说人真正才会有三次机会,人的一生真正只有三次,只有称为能改变自己命运的机会才可以称作是机会。其实人生的机会很快就会过去。能真正抓住机会的人,首先靠的是自己个人的能力;其次靠的是环境。 一个...
ACM大牛的道别!
3xian之所在  最后一天,漫天飘起了雪花,假装欢送我离去。 这次WF之战不太顺利,早期的C题大概花...相比之下,来自全球的队伍让我看到了很强大的实力,每一道题有人过,包括SJTU欺骗性提交的H被人干掉了。
一些不错的资源(收藏,出处:http://search.csdn.net/Expert/topic/2480/2480003.xml?temp=.2231562)
[ASP组件]一个简易ASP UpLoad 组件的原码 www.blueidea.com/bbs/NewsDetail.asp?id=8457请教能否用ASP画曲线图 www.blueidea.com/bbs/NewsDetail.asp?id=866关于JMAIL如何在收件人处指定多个收件人 ...
剧本翻译之メンアットワーク!4 ~ハンター達よ永遠に~猎人们的永远(序章2)
请注意:翻译作品文字版权依然属于EGO(所以最不值得干的工作就是翻译),要用于出版或是商业请和EGO联系,如果汉化或是文章需要请注明翻译作者即可 剧本翻译之メンアットワーク!4 ~ハンター達よ永遠に~猎人们的永远...
授之以鱼不如授之以渔!五分钟教会您手工查杀***!
授之以鱼不如授之以渔!五分钟教会您手工查杀***! 经常看到有人求助~ 为什么我的主页被改了,死活改不回来呀?... 但这肯定不是一个很好的办法,新问题在不断发生,解答问题的人即使不怕累,相信求助的人也...
剧本翻译之メンアットワーク!4 ~ハンター達よ永遠に~猎人们的永远(序章2)...
请注意:翻译作品文字版权依然属于EGO(所以最不值得干的工作就是翻译),要用于出版或是商业请和EGO联系,如果汉化或是文章需要请注明翻译作者即可   剧本翻译之メンアットワーク!4 ~ハンター達よ永遠に~猎人们的...
太监文学是怎么产生的!
因为没有下文,没有下面的了,没有下面,自然就是太监了······许多网友对太监文学深恶痛绝,有人甚至为此破口大骂,为此也不知引发了多少的论战。 谁是谁非,不如先从太监文学产生的背景谈起。 网络写手这...
CSDN磨牙茶社 搬家啦!!欢迎大家光临!
回复人: foolishtiger(吴文智) (2001-11-15 11:24:29) 得0 (把阿木拉到墙角,左右看看,小声说到) 阿木,没白面啦,现在生意不好做,九运会风声紧啊,看你是老朋友,点冰毒,如何? (看到门外有客人,一边用力地...
关于空指针NULL、野指针、通用指针 (转)
首先说一下什么是指针,只要明白了指针的含义,你就明白null的含义了。假设 有语句 int a=10;那么编译器就在内存中开辟1个整型单元存放变量a,我们假设这个整型单元在内存中的地址是 0x1000;...
”世人听完先是了5ooo多一颗丹就能培养一个剑皇级高手的丹药
笑完之后,名道和水天无聊得不知道干嘛后,又开始了闭起眼睛静修。等到时间都快到中午时,保罗等人才从新衣着一套武士服回到大厅之中,看到名道与另一少年在闭着眼睛静,众人也不敢打搅,于是就坐在名道下手处悄悄...
专业论坛经典问题
【转】专业论坛经典问题  (2010-06-30 16:08:24) 转载▼ 标签:  it 分类: 无线通信 恩,回答了我很多迷惑不解的问题~    【 在 dypx (第一片雪) 的大作中提到: 】...
一路通,路路通
继续前天文章流量运营,从入门到精通我以前旧文(谈谈创业这点事(5))说过,我有个群,国内圈内算是很流弊的一个群,有多流弊呢,把公司做成超级独角兽上市,而个人身价过50亿的...
AC注定不平坦(大神回忆录)
3xian的经历和见解。。。我深思... 最后一天,漫天飘起了雪花,假装欢送我离去。 这次WF之战不太顺利,早期的C题大概花...相比之下,来自全球的队伍让我看到了很强大的实力,每一道题有人过,包括SJTU欺骗性提交
《那些年啊,那些事——一个程序员的奋斗史》九
 对于新的4.3'CMMB板子说,设计上并不是很难。毕竟之前有做过Telechips的板 子,现在只要在之前的基础上删删减减,然后加上CMMB模块即可。这次的设计是以简单 为主,只要求有GPS和CMMB即可,其它无关的模块...
ACM大神之路自述
3xian之所在  最后一天,漫天飘起了雪花,假装欢送我离去。 这次WF之战不太顺利,早期的C题大概...相比之下,来自全球的队伍让我看到了很强大的实力,每一道题有人过,包括SJTU欺骗性提交的H被人干掉了。身为
《那些年啊,那些事——一个程序员的奋斗史》五
对于写过UI程序,并且之前还做了点小程序的段伏枥说,这并不是什么很难的事情。唯一的难点在于,播放的时候该如何显示滚动条以及时间。其实CMedia封装了获取当前时间的接口,当然也有获取整个长度的,根据两者的...
OSChina 周二乱弹 ——开启花样告白模式吧
2019独角兽企业重金招聘Python工程师标准>>> ...
第六届GPLT团体程序设计天梯赛
文章目录前言一、L11、人与神 (5 )2、两小时学完C语言 (5 )3、强迫症 (10 )4、降价提醒机器人 (10 )5、大笨钟的心情 (15 )6、吉老师的回归 (15 )二、使用步骤1.引入库2.读入数据总结欢迎使用Markdown...
关于空指针NULL、野指针、通用指针
首先说一下什么是指针,只要明白了指针的含义,你就明白null的含义了。...那么内存0x1000单元中存放了数据10,每次我们访问a的时候,实际上是访问的0x1000单元中的10. 现在定义:int *p;  p=&a; 当编
一个人的隔空喊话(于2012-08-12 0…
05:57 )" TITLE="一个人的隔空喊话(于2012-08-12 05:57 )" /> 原文链接:http://blog.renren.com/blog/97271721/865509726 本来想写点什么,突然觉得,没有必要又写什么。 既没有必要介绍他们的详细身份...
Python爬取小说网站页面制作电子书
#-*- coding:utf-8 -*- from bs4 import BeautifulSoup from urlparse import urljoin import requests url="... txt_file = open("rent.txt","wb"...for num in range(44...
深度学习如何入门?
作者:jacky yang ...关于深度学习,网上的资料很多,不过貌似大部分不太适合初学者。 这里有几个原因: 1.深度学习确实需要一定的数学基础。如果不用深入浅出地方法讲,有些读者就会有畏难的情绪,因而容易过
Algorithm学习笔记 --- 3xian之所在----在我迷茫的时候我指引方向
Algorithm学习笔记 --- 3xian之所在----在我迷茫的时候我指引方向
我在CSDN参与的3000个帖子
2:100急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,...
【经典箴言 || 人生感悟 】
所以对于人说人真正才会有三次机会,人的一生真正只有三次,只有称为能改变自己命运的机会才可以称作是机会。其实人生的机会很快就会过去。能真正抓住机会的人,首先靠的是自己个人的能力;其次靠的是环境。 一个...
指针处理,空指针,野指针
首先说一下什么是指针,只要明白了...那么内存0x1000单元中存放了数据10,每次我们访问a的时候,实际上是访问的0x1000单元中的10.现在定义:int *p;     &nbs...
比较两张图片差异
比较两张图片差异,代码收集于网上,码收集于网上
c#图片文字-字母-数字自动识别-深入代码-非常好
c#图片文字-字母-数字自动识别-深入代码-非常好
掌握C语言链表
链表是一种使用极其广泛的数据结构,它也可以用来作为实现栈、队列等数据结构的基础,链表没有像数组需要预先知道数据大小的缺点,可充分利用计算机内存,实现动态灵活的内存管理。除非需要频繁的通过下标来随机访问各个数据,否则数组都可以用链表代替。链表作为C语言数据结构的难点,更是面试中必考的知识点。 此课程是黄强老师针对C语言链表的专题课程,通过对链表通俗的讲解,结合简单易懂的代码,帮助学员对链表快速的理解,并讲结合真实企业开发中链表常用的算法技巧,从而帮助学员高效,快速、灵活的掌握链表这一难点!
rtl8188eu_USB_linux.tar.gz
TP-LINK TL-WN725N V2 Linux 驱动安装
发帖
Delphi
创建于2007-08-02

4874

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2001-07-12 05:55
社区公告
暂无公告