線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:784
推到 Plurk!
推到 Facebook!

程序不依邏輯 依序執行 (Label中的文字 會延遲顯示)

尚未結案
wallence777
一般會員


發表:4
回覆:3
積分:1
註冊:2003-10-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-05-20 15:41:23 IP:203.204.xxx.xxx 未訂閱
我遇到一個問題:程序不依邏輯依序執行! 我在想 介面顯示 是否會因後續的程序繁複 而造成的系統資源(CPU)吃重 而被延遲到最後才顯示 我將程式碼Po在這邊希望有人能解決 [原始碼] //---------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Label1->Caption="XXX"; for(int i=0;i<=500;i ) { Memo1->Lines->Add(IntToStr(i)); } } //---------------------------------------------------------- [程式目的] 介面上有一個Label1, Memo1 和 Button1 這程式是希望 按下Button以後 能 1. 先將Label1->Caption 的內容顯示出"XXX"來 2. 然後再跑回圈 將i的值顯現在Memo1上 [問題] 可是當實際執行時 程式卻先將i的值顯現在Memo1上 等到 迴圈跑完後 才將將Label1->Caption 的內容顯示出"XXX"來 這是為什麼? 原因何在? 在程式邏輯不能改的情況下 如何解決? 發表人 - wallence777 於 2004/05/20 15:43:54
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-05-20 15:55:17 IP:203.73.xxx.xxx 未訂閱
引言: 我遇到一個問題:程序不依邏輯依序執行! 我在想 介面顯示 是否會因後續的程序繁複 而造成的系統資源(CPU)吃重 而被延遲到最後才顯示 我將程式碼Po在這邊希望有人能解決 [原始碼] //---------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Label1->Caption="XXX"; for(int i=0;i<=500;i++) { Memo1->Lines->Add(IntToStr(i)); } } //---------------------------------------------------------- [程式目的] 介面上有一個Label1, Memo1 和 Button1 這程式是希望 按下Button以後 能 1. 先將Label1->Caption 的內容顯示出"XXX"來 2. 然後再跑回圈 將i的值顯現在Memo1上 [問題] 可是當實際執行時 程式卻先將i的值顯現在Memo1上 等到 迴圈跑完後 才將將Label1->Caption 的內容顯示出"XXX"來 這是為什麼? 原因何在? 在程式邏輯不能改的情況下 如何解決?
wallence777 你好: 善用本站的搜尋功能,關鍵字「Application->ProcessMessages();」 就可以找到你需要的答案 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
lu
高階會員


發表:11
回覆:189
積分:195
註冊:2003-11-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-05-20 16:12:54 IP:221.169.xxx.xxx 未訂閱
原因粉簡單,因為你在程式中修改Label的Caption ,是不會立即改變的,必須等到你將CPU的控制權放開,才會改變 (ㄟ....偶知道這樣說不太恰當,不過這是最簡單的說法,詳細情形,你必須看LABEL的原始程式碼了) 解決方法也粉簡單,如下 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { Label1->Caption="XXX"; Label1->Refresh(); //增加這一行 for(int i=0;i<=500;i ) { Memo1->Lines->Add(IntToStr(i)); } } ========================= 大家一起快樂寫程式
系統時間:2024-05-13 20:01:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!