Operacion sobre todos los componente de un formulario
 

Efectuar una determinada operación sobre todos los componentes de un formulario (Delphi)

ComponentCount devuelve el número total de componentes y Component es la matriz que los contiene.

Por ejemplo, si queremos asignar un valor a la propiedad que se nos ocurra, por ejemplo dejar todos los componentes Edit de un formulario en blanco:

Código Delphi [-]
For x := 0 To ComponentCount - 1 Do
  If Components[x] Is TEdit Then
    TEdit(Components[x]).Text := '';

Hay que recordar que la matriz se inicia en el elemento 0, por eso el bucle con el número de componentes menos 1.

Incluso si en un formulario, tenemos TButtons, TEdits y otros mas... podriamos usar este mismo ciclo para blanquear sus respectivos, Captions y Text, asi:

[/delphi]For x := 0 To ComponentCount - 1 Do
TEdit(Components[x]).Text := '';[/delphi]

jhonny, el if es necesario. normalmente hay otros controles que pueden sufrir los efectos. por ejemplo pon en un form varios TEdit y Varios Paneles, luego prueba este codigo con y sin el if, veras que pasa

Código Delphi [-]
var
   x: Integer;
begin
For x := 0 To ComponentCount - 1 Do
   If Components[x] Is TPanel Then
  TPanel(Components[x]).Color:=clGreen;
end;

jhonny, el if es necesario. normalmente hay otros controles que pueden sufrir los efectos. por ejemplo pon en un form varios TEdit y Varios Paneles, luego prueba este codigo con y sin el if, veras que pasa

Código Delphi [-]
var
   x: Integer;
begin
For x := 0 To ComponentCount - 1 Do
   If Components[x] Is TPanel Then
  TPanel(Components[x]).Color:=clGreen;
end;

Bueno madriles, eso es exactamente lo que queria mostrar, si lees bien mi comentario dice, que si deseas afectar otros controles diferentes a los TEdits, solo bastaria con quitar el IF.

mysql con delphi7...?