Ver Mensaje Individual
  #6  
Antiguo 29-11-2006
Avatar de Bicho
[Bicho] Bicho is offline
Miembro Premium
 
Registrado: jul 2003
Ubicación: Inca - Mallorca
Posts: 1.776
Reputación: 22
Bicho Va por buen camino
Otra forma de hacerlo podría ser usando la función FindComponent. Esto podrías usarlo en el caso en que tus edits tenga el mismo nombre común y un indice. Es decir, tener cinco edits y que los llames así:
Edit1
Edit2
Edit3
Edit4
Edit5

Puedes usar la función FindComponent para acceder directamente al componente en cuestión, o hacer un bucle y vaciar los todos.

Por ejemplo para el caso de los 5 edits:

Código Delphi [-]
var x : Integer;
begin
   for x := 1 to 5 do begin
      (FindComponent('Edit' + IntToStr(x)) as TEdit).text := '';
   end;
end;

En este caso como sabemos que tenemos 5 edits se lo indicamos en el bucle.
Y para cada uno buscamos con la función FindComponent (que necesita como parametro un nombre de componente = propiedad name), que en nuestro caso tiene todos en común "Edit" y una parte numérica que la llamamos X. Hay que hacer un cast de esta X, ya que la función espera un parámetro de tipo string. Después se especifica si el componente encontrado es del tipo TEdit. Y luego hacemos lo mismo que arriba, vaciamos su Text.
Me ha quedado un poco lioso, así que si tienes dudas aquí estamos.

Saludos
Responder Con Cita