請問一個新手在thread應用上遇到的問題 |
|
尚未結案
|
|
downmusic
一般會員   發表：4 回覆：6 積分：2 註冊：2005-07-28 發送簡訊給我 |
|
|
downmusic
一般會員 發表：4 回覆：6 積分：2 註冊：2005-07-28 發送簡訊給我 |
忘了附上程式碼
.
.
.
.
procedure theTest.Execute;
var i, theone, thetwo, thethree : Integer;
begin
i := 0;
repeat
if theNO = 1 then
begin
try
theone := StrToInt(Form1.Edit2.Text);
if (i mod 2) = 0 then
Form1.CheckBox1.Checked := true
else
Form1.CheckBox1.Checked := false;
sleep(theone);
i := i 1;
except
.............. 這裡不知道該怎麼處理比較好
end;
end
.
.
. 各位前輩能指導小弟一下嗎?
|
|
downmusic
一般會員 發表：4 回覆：6 積分：2 註冊：2005-07-28 發送簡訊給我 |
經過一番修正,小弟有做到目標中的狀態,把修正後的程式放上來,
不知道是否有關錯誤的地方,有請各位大大指教
.
.
procedure theTest.Execute;
var i, j, theone, thetwo, thethree : Integer;
begin
i := 0;
repeat
if theNO = 1 then
begin
try
theone := StrToInt(Form1.Edit2.Text);
j := theone;
except
on E: EConvertError do theone := j;
end;
if (i mod 2) = 0 then
Form1.CheckBox1.Checked := true
else
Form1.CheckBox1.Checked := false;
sleep(theone);
i := i 1;
end
.
.
.
|
|
malanlk
尊榮會員  發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
成是這樣寫有點怪.... 如果你這樣寫, 你必須知道當你在修改 Edit 內容時, Thread 正在執行哦....
當你輸入錯誤資料的瞬間, Thread 可能也在判斷...這裡有同步的問題. 建議把 theone 宣告成全域變數, Edit 所在的 Form1 加個 Button1;
procedure Form1.Button1Click(..)
begin
theone := StrToIntDef(Edit1.Text, theone);
end;
...
var
theone: Integer;
IsOdd: Boolean;
...
procedure theTest.Execute;
var
i, j, thetwo, thethree : Integer;
begin
i := 0;
repeat
if theNO = 1 then
begin
IsOdd := ((i mod 2) = 1);
Synchronize(SetCheckBox);
sleep(theone);
i := i 1;
end
.... procedure theTest.SetCheckBox;
begin
Form1.CheckBox1.Checked := not IsOdd;
end; 順便ㄧ提, 如果你在內文輸入程式碼時 將程式碼用 ［ｃｏｄｅ］［／ｃｏｄｅ］包起來, 程式的縮排就不會不現了
|
|
downmusic
一般會員 發表：4 回覆：6 積分：2 註冊：2005-07-28 發送簡訊給我 |
發表時間：2005-08-03 11:53:14
IP:59.113.xxx.xxx 未訂閱
系統時間：2024-05-03 5:39:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |