Seleccionados de un checkboxlist a edit

[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