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