Foros del Web » Programación para mayores de 30 ;) » Programación General »

bucle para recorrer componentes ? en delphi

Estas en el tema de bucle para recorrer componentes ? en delphi en el foro de Programación General en Foros del Web. Hola a todos, resulta que tengo unos formularios en delphi y quiero borrar el contenido de los edits, existe alguna instruccion similar ala de visual ...
  #1 (permalink)  
Antiguo 13/06/2003, 09:58
 
Fecha de Ingreso: septiembre-2002
Mensajes: 4
Antigüedad: 21 años, 7 meses
Puntos: 0
bucle para recorrer componentes ? en delphi

Hola a todos, resulta que tengo unos formularios en delphi y quiero borrar el contenido de los edits, existe alguna instruccion similar ala de visual basic (for each) para conparar los componentes y en caso de que sea un edit se borre el contenido
  #2 (permalink)  
Antiguo 13/06/2003, 10:04
Avatar de Cain  
Fecha de Ingreso: enero-2002
Ubicación: Catalunya
Mensajes: 6.459
Antigüedad: 22 años, 4 meses
Puntos: 17
Si tu pregunta es sobre Delphi, ¿qué hace en PHP?
__________________
M a l d i t o F r i k i
  #3 (permalink)  
Antiguo 13/06/2003, 10:25
Avatar de Webstudio
Colaborador
 
Fecha de Ingreso: noviembre-2001
Ubicación: 127.0.0.1
Mensajes: 3.499
Antigüedad: 22 años, 5 meses
Puntos: 69
Ay esta gente que pone cualquier cosa en cualquier lugar..
Movido a Programación.
__________________
Tutoriales Photoshop | Web-Studio.com.ar
Artículos PHP | ZonaPHP.com
  #4 (permalink)  
Antiguo 13/06/2003, 10:51
Avatar de JavierB
Colaborador
 
Fecha de Ingreso: febrero-2002
Ubicación: Madrid
Mensajes: 25.052
Antigüedad: 22 años, 2 meses
Puntos: 772
Hola, arkam20.

Código:
var
  I: Integer;
begin
  for I:=0 to ComponentCount-1 do
    if (Components[I] is TEdit) then
      TEdit(Components[I]).Text:='';
Saludos,
  #5 (permalink)  
Antiguo 13/06/2003, 10:58
Avatar de Mithrandir
Colaborador
 
Fecha de Ingreso: abril-2003
Mensajes: 12.106
Antigüedad: 21 años
Puntos: 25
Que yo recuerde no existe, lo que tienes que hacer es algo como (lo pongo en pseudocódigo por que no recuerdo bien los nombres de los métodos):

for temp = 0 to form1.components.count do
begin
if form1.components.items[temp].Classname = 'TEdit' then
begin
form1.components.items[temp].Text = '';
end
end

Y no andes pegando posts en el foro que tenga más usuarios, para eso existen divisiones, solo te acarreas desprestigio.

Saludos

Ups... JavierB se me adelantó
__________________
"El hombre, en su orgullo, creó a Dios a su imagen y semejanza."
Friedrich Nietzsche
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:31.