Foros Club Delphi - Seleccionados de un checkboxlist a edit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Seleccionados de un checkboxlist a edit (https://www.clubdelphi.com/foros/showthread.php?t=92018)

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

Hola.

Cita:

Empezado por rafaelon (Mensaje 518854)

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 :)

Gracias sr ecfisa , me sirvio, para la otra pregunta abrire otro hilo