Fórum Salvar itens de um CheckListBox #279166

for v_i := 0 to checklist1.rows - 1 do
begin
insert na tabela;
end;

depois de inserir dê um select na tabela que você inseriu...

Valeu Cabelo pela diga, e mais uma: Que tipo de campo eu tenho que criar no meu banco?

Campo tipo string/char/varchar, dependendo do banco..

Só uma retificação :

for v_i := 0 to checklist1.rows - 1 do
begin
if checklistbox1.itens[v_i].checked then
begin
insert na tabela;
end;
end;

mais uma vez obrigado !!!
valeu Cabelo..

Cabelo, utilizei sua rotina abaxio, mas não consegui, inclusive que na propriedade do checklist não existe ROWS e quando testo a condição se existe os itens dá pau na opção checklistbox1.itens[v_i].checked, pois ele não aceita o checked.

for v_i := 0 to checklist1.rows - 1 do
begin
if checklistbox1.itens[v_i].checked then
begin
insert na tabela;
end;
end;

eu consegui da seguinte forma:

for i := 0 to Clb_qm.Items.Count-1 do
begin
if Clb_qm.Checked[i] then
BEGIN
// showmessage(´item checado é´+inttostr(i));
dmbancos.IBQCad_Dst.ParamByName(´Pqm´).AsString := Clb_qm.Items.Strings[i]
end
else
dmbancos.IBQCad_Dst.ParamByName(´Pqm´).AsString := ´1´;
// Teste se grava essa condição
end;

A segunda consição retornando 1 ele passa, mas ele não grava as opções marcadas no meu checklistbox.
As opções do meu checklistbox são:
Corrimento
Úlcera
Verrugas
Gânglios
Ardência Uretral
Outros
Você teria outra sugestão.