Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-07-2017
rafaelon rafaelon is offline
Miembro
 
Registrado: sep 2010
Posts: 29
Poder: 0
rafaelon Va por buen camino
Seleccionados de un checkboxlist a edit

Hola, buen día , tengo un problemita necesito que los elementos seleccionados en un se pasen a un edit seprados por comas en otro form
Código:
var
  i  : Integer;
begin
  if Check( CheckListBox1 ) then
  begin
    DM.tbltrabajosr.Insert;
    for i := 0 to CheckListBox1.Items.Count-1 do
    if CheckListBox1.Checked[i] then
    frm_principal.Edit9.:= (CheckListBox1.Items.Strings[(i)]);
    FrmTrabajos.close;

     DM.tbltrabajosr.FieldByName('Ids_trabajos').AsString :=
     CheckListBox1.Items[i];
     DM.tbltrabajosr.FieldByName('Id_orden').AsString :=frm_principal.Label44.Caption;
     DM.tbltrabajosr.Post; 

  end
end;

con este el código solo me muestra el ultimo seleccionado en el edit y no todos , y la otra parte del codigo que tambien tengo problemas quisiera guardar el codigo de los trabajos que se realizaran el campo "ids_trabajos" pero solo he podido guardar el nombre del ultimo seleccionado , entonces como podria guardar los codigos en vez del nombre que es lo que tengo en el checkboxlist , gracias de ante mano
Responder Con Cita
  #2  
Antiguo 01-07-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por rafaelon Ver Mensaje
Hola, buen día , tengo un problemita necesito que los elementos seleccionados en un se pasen a un edit seprados por comas en otro form...
Código Delphi [-]
// Devuelve los items seleccionados separados por coma
function CheckedByComma( clb: TCheckListBox ) : string;
var
  i : Integer;
begin
  for i := 0 to clb.Items.Count - 1 do
    if clb.Checked[i] then
      Result := Result + clb.Items[i] + ',';
  SetLength( Result, Length( Result ) -1 );
end;

Ejemplo de uso:
Código Delphi [-]
procedure TForm_Actual.UnButtonClick(Sender: TObject);
begin
   ElOtroForm.UnEdit.Text := CheckedByComma( CheckListBox1 );
   ...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 02-07-2017
rafaelon rafaelon is offline
Miembro
 
Registrado: sep 2010
Posts: 29
Poder: 0
rafaelon Va por buen camino
Gracias sr ecfisa , me sirvio, para la otra pregunta abrire otro hilo
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Color de los botones seleccionados Delphitest Varios 3 11-01-2015 11:20:22
Obtener listado de checkboxlist frankmaniaz C++ Builder 1 25-09-2013 02:15:33
Agregar ID a checkboxlist en delphi teecweb Varios 12 08-03-2013 17:05:47
Recorrer checkboxlist en pascal para un realizar en INNOSETUP teecweb Varios 1 02-03-2013 08:23:48
Multiples datos seleccionados StringGrid lacovera OOP 4 15-06-2011 20:15:39


La franja horaria es GMT +2. Ahora son las 18:33:24.


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
Copyright 1996-2007 Club Delphi