請教如何自動讀取 Radiogroup 中所有 items 的值? |
答題得分者是:Miles
|
azurecloud
中階會員 發表:52 回覆:108 積分:92 註冊:2003-09-04 發送簡訊給我 |
各位高手大家好,Radiogroup 中有 Items 的屬性,我查過在 Unit 當中是長得像下面這樣:
object RadioGroup1: TRadioGroup
Left = 16
Top = 16
Width = 185
Height = 105
Caption = '選擇執行條件'
Columns = 2
Items.Strings = (
'字元數為1 '
'字元數為2'
'字元數為3'
'字元數為4'
'字元數為5'
'其它')
TabOrder = 2
OnClick = RadioGroup1Click
end
那在程式中用這種語法:edit1.Text := radiogroup1.Items.Strings[0];
也可以把 Items 一個一個讀出來;但我的問題是,如果我想找出程式中所有
的 Radiogroup 並把它們的所有 items 一次讀出來存入文字檔中,該怎麼做
呢?之前在會員創作發表區中,曾看過 pcplayer99 大大所發表的【多語言的元件】一文,當中已提到了遍歷 form 中所有物件的方法,但是我發現找得到
radiogroup 物件,可 radiogroup.items 屬性值卻是空的,請大家幫忙想個
辦法,非常感謝。
PS.pcplayer99 大大是用 GetStrProp(Components[j],'Caption') 這個語法把
迴圈找到的 Component 元件的 Caption 屬性讀出來的。但是當傳入的
component 是 Radiogroup 時,GetStrProp(Components[j],'items')卻讀
不到東西(是空白的)。
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hi azurecloud 您好, 試試這一段:
procedure TForm1.Button1Click(Sender: TObject); var i, j : integer; begin Memo1.Clear; for i := 0 to ComponentCount - 1 do begin if Components[i] is TRadioGroup then begin for j := 0 to TRadioGroup(Components[i]).Items.Count - 1 do begin Memo1.Lines.Add( TRadioGroup(Components[i]).Items.Strings[j] ); end; end; end; end;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
azurecloud
中階會員 發表:52 回覆:108 積分:92 註冊:2003-09-04 發送簡訊給我 |
Miles 大大:
真是太感謝您了,在我的眼中,您就是高手啦!
我猜,您用的方法是 Force component[j] to TRadiogroup 物件
所以就能夠抓到它的屬性值了。
我根據您提供的方法又修改了 pcplayer99 大大的【多語言的元件】
,目前包含 TForm、mainmenu、button、groupbox、radiogroup 等物件
的顯示畫面都已能自動輸出成 ini 檔並用 Dr.Eye 自動換成簡體,我測
試的結果,只要本身是 component 的話,就算被別的 container 包住
(例如 groupbox 中含了幾個 button)這個程式碼還是能抓得到,而目
前我唯一找到的例外就是 radiogroup 物件,也由於您的幫忙順利解決了
,接下來我想去試試自動抓取 StringGrid 和 DBGrid 的 cells;那這一
份我修改的程式碼由於還沒有向原創 pcplayer99 大大取得同意不方便轉
貼,您如果有興趣我可以 Mail給您,聊表謝意,再一次感謝您的幫忙。
|
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |