全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1850
推到 Plurk!
推到 Facebook!

TCheckBox 指定True 與 False 發生問題

答題得分者是:andersonhsieh
kan0515
中階會員


發表:56
回覆:120
積分:50
註冊:2002-06-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-09-12 17:36:08 IP:211.23.xxx.xxx 未訂閱
TCheckbox(Findcomponent('check' inttostr(i))).Checked:= Not TCheckbox(Findcomponent('check' inttostr(i))).Checked; 請問一下 我做了一個按鍵讓使用者可以全選/全部取消 語法這樣寫卻出現錯誤訊息 請問該怎麼寫 發表人 - ddy 於 2002/11/30 11:29:55
linsoung
一般會員


發表:0
回覆:4
積分:0
註冊:2002-04-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-09-12 17:50:12 IP:210.201.xxx.xxx 未訂閱
procedure TForm1.Button1Click(Sender: TObject); var i:integer; ncomponent:Tcomponent; begin ncomponent:=Findcomponent('CheckBox' inttostr(1)); if ncomponent <>nil then TCheckbox(ncomponent).Checked:=Not TCheckbox(ncomponent).Checked; end;
kan0515
中階會員


發表:56
回覆:120
積分:50
註冊:2002-06-24

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-09-12 18:03:23 IP:211.23.xxx.xxx 未訂閱
可以了,謝謝 請問一下 為何之前的那種寫法不行呢? 一定要把component分開寫嗎?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-09-12 20:41:11 IP:211.22.xxx.xxx 未訂閱
引言: TCheckbox(Findcomponent('check' inttostr(i))).Checked:= Not TCheckbox(Findcomponent('check' inttostr(i))).Checked; 請問一下 我做了一個按鍵讓使用者可以全選/全部取消 語法這樣寫卻出現錯誤訊息 請問該怎麼寫
小弟很好奇, 可否請教一下出現了什麼錯誤訊息呢?
kan0515
中階會員


發表:56
回覆:120
積分:50
註冊:2002-06-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-09-13 09:10:45 IP:211.23.xxx.xxx 未訂閱
會出現下列訊息 Access violation at address 004B4BEC in moudule 'project1.exe' Read of adress 00000000
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2002-09-13 09:50:06 IP:211.22.xxx.xxx 未訂閱
引言: 會出現下列訊息 Access violation at address 004B4BEC in moudule 'project1.exe' Read of adress 00000000
這表示 FindComponent 的結果是 nil 所以會出現 Access Violation。 可能的原因是 TCheckbox(Findcomponent('check' inttostr(i))).Checked 中的 i 值不對了。
kan0515
中階會員


發表:56
回覆:120
積分:50
註冊:2002-06-24

發送簡訊給我
#7 引用回覆 回覆 發表時間:2002-09-13 10:17:33 IP:211.23.xxx.xxx 未訂閱
已經試過多加一個判斷式 判斷checkbox是否存在 若checkbox存在才做那段敘述 可是仍會出現此錯誤訊息!! 所以才粉好奇 為什麼一定要分開寫呢
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#8 引用回覆 回覆 發表時間:2002-09-13 10:22:18 IP:211.20.xxx.xxx 未訂閱
可否將程式放上來給大家幫你看看........ @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
kan0515
中階會員


發表:56
回覆:120
積分:50
註冊:2002-06-24

發送簡訊給我
#9 引用回覆 回覆 發表時間:2002-09-13 10:56:11 IP:211.23.xxx.xxx 未訂閱
程式放上去囉 麻煩大家看看囉 謝謝 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21224
andersonhsieh
版主


發表:33
回覆:531
積分:439
註冊:2002-06-10

發送簡訊給我
#10 引用回覆 回覆 發表時間:2002-09-13 11:09:03 IP:211.20.xxx.xxx 未訂閱
你的那一行程式碼根本就是你自己打錯字了才會造成錯誤的.... TCheckbox(Findcomponent('checkbox'+inttostr(i))).Checked:= Not TCheckbox(Findcomponent('check'+inttostr(i))).Checked; 錯誤的 TCheckbox(Findcomponent('checkbox' inttostr(i))).Checked:= Not TCheckbox(Findcomponent('checkbox' inttostr(i))).Checked; 正確的 @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@
kan0515
中階會員


發表:56
回覆:120
積分:50
註冊:2002-06-24

發送簡訊給我
#11 引用回覆 回覆 發表時間:2002-09-13 11:17:17 IP:211.23.xxx.xxx 未訂閱
啊…
系統時間:2024-04-19 10:44:02
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!