Hola.
Cita:
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
[-]
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