Ver Mensaje Individual
  #2  
Antiguo 29-07-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Si te entendí bién, podrías hacer:
Código Delphi [-]
procedure TForm1.btnConcatenaClick(Sender: TObject);
const
  SEP = ','; // separador de tu gusto
var
  i: Integer;
  s: string;
  co: TComponent;
begin
  for i := 1 to 9 do
  begin
    co := FindComponent(Format('Edit%d',[i]));
    if co is TEdit and (TEdit(co).Text <> '') then  // ¿ es un Edit y tiene contenido ?
      s := s + TEdit(co).Text + SEP;
  end;
  SetLength(s, Length(s)-1);  // quitar el último separador
  Edit10.Text := s;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 29-07-2017 a las 21:15:34.
Responder Con Cita