最近遇到一個while的問題，我在程式中設置一個lock旗標，功用是避免不同函式同時存取相同全域record，當我的thread需存取時先檢查旗標是否為false，是則設為true，執行完畢再設為false，否則繼續檢查，其他函式亦相同。 檢查旗標我使用while來做，語法如下：

while true do
begin
    if lock then continue
    else lock:=true;
    .....
    .....
    lock:=false;
end;

這時就有問題了，當某一函式跑到while時，整個AP程式就停頓下來，一直在跑WHILE，確定不會陷入無限迴圈，但是thread卻很正常，看起來存取權似乎被thread佔住，可是thread中也使用以上相同語法，為什麼會這樣呢？有大大能幫我解惑嗎？ 發表人 - AJ 於 2003/08/13 09:37:45

試試

while true do
begin
    Application.ProcessMessages;
    if lock then continue
    else lock:=true;
    .....
    .....
    lock:=false;
end;

引言: 試試

while true do
begin
    Application.ProcessMessages;
    if lock then continue
    else lock:=true;
    .....
    .....
    lock:=false;
end;

謝謝Justmade 可以請大大說明一下差別在哪裡呢？很想了解一下

如果不加 Application.ProcessMessages; 這行的話 程式會一直處理 while 這個迴圈的工作 這時 AP 仍有在接收 message, 不過都放在 Queue 裏, 沒有處理 因此 AP 看起來像當掉了 而 Application.ProcessMessages; 這行的意思 就是先 "暫停" while 迴圈的工作 去處理 Queue 裏的 message 更詳細的可以看 ProcessMessages 的 help 說明. --- --<-<-<@

原來是這樣喔，謝謝hagar 一直以來都很納悶，為什麼while沒錯，可以程式就是會停止回應，終於了解為什麼了，謝謝您！