checklistbox中的内容如何一次性存入资料库,然后每一个之间都用逗号分开？ 我是这样读取数据的 CheckListBox1.Clear; for i := 0 to frmmain.pcase.Items.Count - 1 do CheckListBox1.Items.Add(frmmain.pcase.Items[i].Caption); 然后如何把checklistbox中的内容添加到资料库中的一个field中？每一项之间用"，"分开来，方便阅读，然后再从资料库中读取每一项然后反应到checklistbox中，就是说如果资料库中有checklistbox中的对应项，checklistbox中的那项前面就打勾？请问如何实现？

你好： 以下的範例希望能給你一個方向，如果有不瞭解的在一起研究吧。 // 將字串分解為 delimiter = '' Expression = ''

请问OutCheckListBox，showcecklistbox是什么？

你好： 嘿嘿，少 Copy 的兩個函式  給你囉 > -

function TForm1.OutCheckListBox: String; 这句好象有问题，运行不了的啦 *^O^*

你好： 我的測試可以耶< > 是什麼錯誤呢< >你該順便 Post 上來的

ha0009你好： 编译时错误如下: Error] maintenance.pas(72): Undeclared identifier: 'OutCheckListBox' [Error] maintenance.pas(72): ';' expected but ':' found [Error] maintenance.pas(76): Undeclared identifier: 'result' [Error] maintenance.pas(77): Undeclared identifier: 'CheckListBox1' [Error] maintenance.pas(77): 'DO' expected but identifier 'Count' found [Error] maintenance.pas(78): 'THEN' expected but identifier 'Checked' found [Error] maintenance.pas(79): Missing operator or semicolon [Error] maintenance.pas(82): Incompatible types [Error] maintenance.pas(82): Incompatible types [Error] maintenance.pas(317): Undeclared identifier: 'OutCheckListBox' [Fatal Error] main.dpr(85): Could not compile used unit 'system\maintenance.pas' 我的程式如下 function TForm_maintenance.OutCheckListBox: String; var i:integer; begin result:=''; for i:=0 to CheckListBox1.Count - 1 do begin if CheckListBox1.Checked[i] then begin result:=result CheckListBox1.Items.Strings[i] ','; end; end; result:= copy(result, 1, Length(result) - 1); end;

你好： 首先你開一個 Form ，在 Form 上放一個 TCheckListBox，一個繼承自 TDataset 的物件(如 TAdoTable)，一個 TDataSource 以上是所需的設計環境。    除了 split 程序式外部程序外，其他皆屬於 TForm 所宣告的內部程序。所以請你照所說的整理，應該可以執行才是。別忘了把 Option 改為你自己的欄位名稱喔。用點心，如果真的不行我在傳我的 Source 給你唄

ha0009:你好，你所说的我都做了，如果我屏弊掉function TForm_maintenance.OutCheckListBox: String;程序就可运行了，不屏弊就运行不了，还请指教

你好： 我將 Demo Source 放在http://k_top.delphi.com.tw/dl/OptionString.exe，你 DL 試試是不是你要的

兄台，你的这个网址上不去啊 http://k_top.delphi.com.tw/dl/OptionString.exe :)

你好： 這是按下網址後的畫面喔，無法使用連結可能是你的問題吧 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10302721&CC=230419"> 如果你還是無法抓取，而你還想要這個 Demo 的話，請將你的 Email 用簡訊傳給我，我再寄給你好嗎

我的EMAIL是 pengjuntao@carich.com.cn 麻烦你了，我也搞不懂怎么那个function不行，呵。。

看你的 Error Message 應是在 Type TForm_maintenance = class(TForm) 裡沒加入 private function OutCheckListBox: String; 罷 ?

Justmade你好： 我已经在private中加了 function OutCheckListBox: String; ：）