Ver Mensaje Individual
  #3  
Antiguo 26-03-2010
BrunoBsso BrunoBsso is offline
Miembro
 
Registrado: nov 2009
Ubicación: Berisso, Buenos Aires, Argentina
Posts: 239
Reputación: 15
BrunoBsso Va por buen camino
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.
Responder Con Cita