Seleccionados de un checkboxlist a edit

[rafaelon]

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

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

[ecfisa]

Hola.

Empezado por rafaelon

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

[rafaelon]

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