怎么解决象死机一样的问题，我用了Application.ProcessMessage还不行，？为什么看看。在线等候

Question

while true do
begin
   Memo.lines.add('Hello')
end怎么避免程序象死机了一样的，我用了
Application.ProcessMessages好象还是不行while true do
begin
   Memo.lines.add('Hello')
   sleep(1000);
   Application.ProcessMessages
end  不行，有好的办法吗，谢谢

Answer 1

我是假设了
  AddUserID 是个函数 返回Boolean值
while AddUserID(Sender) do
begin
   AddUserID(Sender)
   sleep(1000);
   Application.ProcessMessages
end  

Answer 2

用一个timer定时调用AddUserID(Sender)如何？

Answer 3

sleep(1000)就是睡1秒钟，一个processmessages才是一个消息处理的时间，怎么能跟1秒比呢，当然会睡得象死猪一样啦。
你为什么要加个sleep(1000)呢？难道觉得计算机处理速度太快？不懂

Answer 4

用了sleep(1000)
你的程序一定会像死了一样
因它的作用是程序停止运行一秒，
其间不响应用户的任何操作

Answer 5

while true do
begin
   Application.ProcessMessages
   sleep(1000);
   Memo.lines.add('Hello')
end

Answer 6

while true do
begin
   
   t:=gettickcount;
   while(gettickcount<t+1000)do 
   Application.ProcessMessages;
   Memo.lines.add('Hello')
end