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

如何儲存在runtime動態產生的checklistbox items ?

尚未結案
fj
一般會員


發表:20
回覆:12
積分:6
註冊:2004-11-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-31 11:42:36 IP:211.78.xxx.xxx 未訂閱
小弟我想要將runtime新增到checklistbox中 的items儲存起來到檔案,然後用按鈕在視窗中載入之前新增值。 曾使用過dreamdesigner物件的savecomponenttofile方法與Loadcomponentfromfile的方法,但是沒作用,items還是出不來 曾使用過TMemoryStream的WriteComponent方法 以及 readComponent 也失敗,是否有其他方式,或是有人有實做過相同的例子 嘗試程式碼如下: //儲存component procedure TTrendLine.Button2Click(Sender: TObject); var FN: array[0..MAX_PATH- 1] of char; CeXEpATH:String; begin SetString(cExePath, FN, GetModuleFileName(hInstance, FN, SizeOf(FN)));//抓取現在正在執行的程式所在路徑包含完整路徑 exe_path:=ExtractFilePath(cExePath);//僅抓取路徑不包含檔名 showmessage(exe_path); dreamdesigner1.SaveComponentToFile(DreamDesigner1.LimitControl,exe_path 'PropertyTagList.dfm.dfm');//取的放在panel2的components end; 新增到CheckListBox procedure TTrendLine.Button4Click(Sender: TObject); var i : integer; begin if edit1.text = '' then begin showmessage('請輸入Tag_No'); exit; end; for i := 0 to tagnolist.Items.count-1 do begin if edit1.Text = TagNoList.Items[i] then begin showmessage('此Tag_No已存在,請從新輸入'); exit; end; end; tagnoList.Items.add(edit1.text);//新增到CheckListbox end; //載入檔案 procedure TTrendLine.Button3Click(Sender: TObject); var FN: array[0..MAX_PATH- 1] of char; CeXEpATH:String; begin if FileExists(exe_path 'PropertyTagList.dfm') then //將dreamdesigner元件從檔案中取出載入 showmessage('iiiiii'); DreamDesigner1.LoadComponentFromFile (DreamDesigner1.LimitControl,exe_path 'PropertyTagList.dfm'); end; 這些程式是在一個動太產生的form --> TrendLine 上 請各位前輩指點迷經,謝謝。
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-31 21:52:36 IP:218.32.xxx.xxx 未訂閱
fj 你好: 這篇參考過嗎 ? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50270
fj
一般會員


發表:20
回覆:12
積分:6
註冊:2004-11-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-03 14:41:07 IP:211.78.xxx.xxx 未訂閱
引言: fj 你好: 這篇參考過嗎 ? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50270
---------------------------------------------------------------------- 多謝Mickey大哥,參考上述文章後是了一遍已經可以儲存checklistitems了,雖然items的checked屬性還是沒能記錄起來,但已經達到我要的功能了。 除此之外,之前的動態formcreate事件沒有作用,原來是因為我沒在form Object inspector中的事件上做連結。
系統時間:2024-06-02 2:00:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!