Question

delphi checklistbox想做一个选择插入数据库功能。

procedure TForm7.btn1Click(Sender: TObject);
var
i:integer;
P:string
begin
for i:= 0 to Chklst1.Items.Count - 1 do
begin
if
chklst1.Checked[i]=true; then
begin
with unit1.CreationForm.qry1 do
begin
P:=qry1.Fields[i].Value;
Close;
sql.clear;
sql.Add( 插入 ''''+p+'''');
sql.Execsql;
end;
end;
end;
end;
帮我写写吧，不会写了。

Answer 1

获取checklistbox的第一个字符串，第2个字符串，第3个字符串:

Chklst1.Items[i]

Answer 2

遇到和楼主同样的问题，其实可以使用一个中间变量string strCollected
得到全部选中的值 ，并将选中的项的文本组合成为一个字符串。
string strCollected = string.Empty;
for (int i = 0; i < checkedListBox1.Items.Count; i++)
{
if (checkedListBox1.GetItemChecked(i))
{
if (strCollected == string.Empty)
{
strCollected = checkedListBox1.GetItemText(
checkedListBox1.Items[i]);
}
else
{
strCollected = strCollected + "/" + checkedListBox1.
GetItemText(checkedListBox1.Items[i]);
}
}
}
然后将strCollect的值插入数据库中

Answer 3

insert into table_name(filedname) values(p)

追问

我要的不是 插入....这个我会...

我这段代码通不过 希望你帮我改改。很多地方有错

获取checklistbox的第一个字符串，第2个字符串，第3个字符串。