Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   filtrar edits (https://www.clubdelphi.com/foros/showthread.php?t=67062)

pabloloustau 26-03-2010 01:28:12

filtrar edits
 
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 26-03-2010 02:21:19

Cita:

Empezado por pabloloustau (Mensaje 358401)
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 26-03-2010 02:26:24

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 26-03-2010 02:27:33

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 26-03-2010 07:04:35

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


La franja horaria es GMT +2. Ahora son las 16:59:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi