Delphi - Limpiar Edits

 
Vista:
sin imagen de perfil

Limpiar Edits

Publicado por Ragaru (46 intervenciones) el 18/02/2012 11:24:15
Para limpiar 100 Edits y dejarlos en blanco uso el sistema prolijo y tedioso de Edit1.Clear;
Edit2.Clear, etc. hasta Edit100.Clear;

Como este sistema además de lento en su programación parece poco informático, agradeceria
si alguién me puede indicar un método más rápido y mejor de prgramar el limpiado de los
100 Edits.

Gracias anticipadas y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 65
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

Limpiar Edits

Publicado por E.T. (1244 intervenciones) el 20/02/2012 00:02:35
si su nombre es el mismo, y se diferencian solo por su numero, puedes hacer esto:

1
2
3
for i := 1 to 11 do
    if TEdit(self.FindComponent('edit' + inttostr(i)))<> nil then
      TEdit(self.FindComponent('edit' + inttostr(i))).Clear;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Limpiar Edits

Publicado por Rodelphi (1 intervención) el 28/02/2012 19:27:03
Usa esta funcion, busca todos los edits que tengas no importa el nombre y puedes cambiar propiedades o hacer algun accion etc.

si quieres omitir algun Edit Puedes ponerle en la propiedad Tag algun numero para omitir.

codigo:

for i:= ComponentCount -1 downto 0 do
begin
if (Components[i] is TEdit) and (Components[i].tag=2) then
(Components[i] as TEdit).clear;
end;

Si no quieres omitir ningun Edit quitale "and (Components[i].tag=2)".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar