Foros Club Delphi - problema texto de varios edit a otro edit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - problema texto de varios edit a otro edit (https://www.clubdelphi.com/foros/showthread.php?t=92110)

problema texto de varios edit a otro edit

Hola buen dia , tengo la siguiente duda tengo varios edits donde hay palabras pero necesariamente quedan vacíos algunos , y lo que quiero es que todo lo escrito pase a otro edit obviando los vacios y que quede separado por comas o espacios .

Código:

frmeditpro.Edit10.Text:= (frmeditpro.Edit1.Text + ' ')+(frmeditpro.Edit2.Text + ' ')+(frmeditpro.Edit3.Text + ' ')+(frmeditpro.Edit4.Text + ' ')+ (frmeditpro.Edit5.Text + ' ') + (frmeditpro.Edit6.Text + ' ') +(frmeditpro.Edit7.Text + ' ') +(frmeditpro.Edit8.Text + '  ') +(frmeditpro.Edit9.Text + '  ')

Algo así, pero claro asi no funcionaria porque si solo el primero (edit1.text) y el final (edit9.text) tienen texto el resultado serian 2 palabras con muchos espacios entre si , gracias de antemano

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 :)

Gracias ecfisa era justo eso funciona perfecto como siempre