como utilizar un cheklistbox

[majosf]

Hola! Tengo en la aplicacion un checklistbox, ¿como puedo almacenar en una celda de la base de datos todos los objetos de la lista que yo seleccione?
por ejemplo: en el checklistbox tengo 10 materias y quiero seleccionar 3 y quiero q las 3 se almacenen en la misma celda, como lo hago?

Gracias.

[dec]

Hola,

Así es posible:

Código Delphi [-]
 var
   i: integer;
 begin
   for i := 0 to CheckListBox1.Count -1 do
   begin
     if CheckListBox1.Checked[i] then
     begin
       // El elemento "i" está marcado:
       // Añádelo en donde sea menester
     end;
   end;
 end;

[SARCETA]

Hola a todos espero que esten pasandolo divertido....

Quisiera que me ayudaron con lo siguiente; quiero cargar en un tchecklistbox el nombre del fabricante despues que halla hecho el filtro el la tabla... el programa corre, no envia error pero a la hora de cargar los nombres de los fabricantes no hace nada

De antemano se le agradece su colaboracion

posicion1 := pos('-',cbgrupocomercial.Text);
Showmessage(inttostr(posicion1));
tblFabricantes.Close;
tblFabricantes.SQL.clear;
tblFabricantes.SQL.Add('select * from prueba');
tblFabricantes.SQL.Add('Where iyid = '+coma+'posicion1'+coma);

posicion2 := pos(' ',cbDepartamento.Text);
tblFabricantes.SQL.Add('and class='+coma+Copy(cbDepartamento.Text,1,posicion2-1)+coma);

//Showmessage(Copy(cbGrupoComercial.Text,1,posicion-1)+' '+Copy

(cbDepartamento.Text,1,posicion-1));
tblFabricantes.Open;
tblfabricantes.First;

chkFabricantes.Items.clear;
while not tblFabricantes.Eof do
begin
chkFabricantes.Items.Add(tblfabricantesMFABR.AsString);
tblFabricantes.Next;
end;