filtrar edits

[pabloloustau]

hola a todos!
tengo varios edits y un memo, lo que quiero hacer es que solo los edits que tengan texto pasen al memo. y los edits que esten vacios se elimenen de alguna forma en la cual no me quede la linea en blanco en el memo.
estoy intentando pero no me sale.

[*Caro*]

Empezado por pabloloustau

tengo varios edits y un memo, lo que quiero hacer es que solo los edits que tengan texto pasen al memo. y los edits que esten vacios se elimenen de alguna forma en la cual no me quede la linea en blanco en el memo.
estoy intentando pero no me sale.

Hola pabloloustau, debes colocar el codigo que tienes hecho para poder ayudarte mejor.

Sobre tu pregunta, tienes que hacer algo como esto:

Código Delphi [-]
var
 ind : Integer;
begin
 for ind:=0 to ComponentCount-1 do
  if (Components[ind] is TEdit) and (TEdit(Components[ind]).Text<>'') then
   Memo1.Lines.Add(TEdit(Components[ind]).Text);

Saluditos

[BrunoBsso]

Hola.
Supongo que lo que necesitás es cargar en el TMemo todos los TEdits que tengan algún dato, salteando los que están vacíos.
Porque vos decís "eliminarlos" y no creo que te refieras a eliminar el componente del formulario.
Bueno, acá te muestro como pasar los textos

Código Delphi [-]
//Tengo 3 TEdits, un TMemo y un TButton en el formulario
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
begin
  for I := 0 to ControlCount-1 do begin
    if (Controls[i] is TEdit) then
      if (TEdit(Controls[i]).Text<>'') then
        Memo1.Lines.Append(TEdit(Controls[i]).Text);
  end;
end;

Saludos.

[BrunoBsso]

Perdón Caro, mientras estaba escribiendo no sabía que ya habías respondido.
Es más, yo respondí con Controls y es mejor usar Components porque pueden haber componentes dentro de contenedores y mi solución no los toma.
Es preferible como lo hizo Caro.

[pabloloustau]

era justo lo que necesitaba. perdon por no hacerme entender bien jeje. muchas gracias.