Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   como utilizar un cheklistbox (https://www.clubdelphi.com/foros/showthread.php?t=24766)

majosf 01-09-2005 17:55:14

como utilizar un cheklistbox
 
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.:p

dec 01-09-2005 18:00:11

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 13-03-2009 21:28:48

Checklistbox
 
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;


La franja horaria es GMT +2. Ahora son las 11:02:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi