demasiados edit para borrar

[huwabe78]

Consulta, en un form tengo varios edit, hay alguna manera de borrar varios edit al mismo tiempo en lugar de estar poniendole a cada edit .clear luego que los utilizo?

gracias y salu2

[roman]

Código Delphi [-]
for I := 0 to ComponentCount - 1 do
  if Components[i] is TEdit then
    TEdit(Components[i]).Clear;

Con esto borrarías todos los Edit en el formulario.

// Saludos

[huwabe78]

Te pido disculpas por no entender, soy estudiante y estoy tratando de iniciarme, por favor te pido paciencia, pero no comprendo a que se refiere esta parte:
for I := 0 to ComponentCount - 1 do

Como que tengo que declarar la I?

[roman]

I sería una variable de tipo Integer. La puedes declarar local al procedimiento donde tengas la rutina. Por ejemplo:

Código Delphi [-]
procedure TForm1.LimpiarEdits;
var
  I: Integer;

begin
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      TEdit(Components[i]).Clear;
end;

// Saludos

[[Bicho]]

Hola, para que te aclares un poco:

ComponentCount es una variable que contiene el nº de componentes que conforman el formulario actual.
Components es una matriz de componentes, que contiene punteros a todos los componentes del formulario.

Código Delphi [-]
if Components[i] is TEdit then

Aquí se busca si el elemento al que apunta "i" en la matriz, es un componente de l tipo TEdit, que en este caso es lo que nos interesa

Código Delphi [-]
TEdit(Components[i]).Clear;

Aquí accedemos al componente de tipo Tedit del formulario y lo que hace es borrar el contenido de ese campo.
Otra alternativa podría ser:

Código Delphi [-]
TEdit(Components[i]).Text := '';

Lo que hace es vaciar el contenido de la propiedad Text del Edit.

Espero te sirva.

Saludos

[[Bicho]]

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

[huwabe78]

Te agradezco roman, pero la verdad es que no lo pude hacer funcionar.

Gracias y salu2

[[Bicho]]

Por que razón no lo hiciste funcionar? Te dió algún error? Muéstranos el error y el código que pusiste para ayudarte.

Saludos

[roman]

Empezado por huwabe78

Te agradezco roman, pero la verdad es que no lo pude hacer funcionar.

Mira el ejemplo que adjunto a ver si te aclara un poco.

// Saludos