Funcion para leer compomentes

[Casimiro Notevi]

Empezado por newtron

Hola de nuevo.
A ver si esto te sirviera:

procedure TForm1.Button1Click(Sender: TObject);
var
 N: SmallInt;
begin
    for N := 0 to ComponentCount -1 do begin
      if Components[N].Name =  'Edit1' then begin
       (Components[N] as TEdit).width := 100;
      end;
    end;
end;

Igual que modificas las propiedades de un edit puedes cambiar las propiedades de cualquier control, incluido el formulario.
Saludos

Por seguridad, en lugar de comparar por el nombre, se debería comparar por el tipo/clase al que pertenece. En lugar de esto:

Código Delphi [-]
if Components[N].Name =  'Edit1' then begin

Mejor de esta forma:

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

Si el "Edit1" es una TLabel, por ejemplo, se produciría un error "gordo".
No sé si todo el mundo nombra los componentes según su clase, pero es más seguro la opción que he citado, creo.