Busqueda de componente...

[Jose Roman]

Hola a todos...
Para buscar un componente por medio de un bucle realizo esto:

Código Delphi [-]
for I:=1 to 5 do 
    (FindComponent('Button'+IntToStr(I)) as TButton).Caption:='Hola';

La variable I me da como por decir el orden numerico del componente, me gustaria saber, es teniendo el nombre del componente que orden tiene, es decir saber que valor I tendria. Gracias

[TOPX]

Hola...

He estado tentado a responderle, pero no sé qué responderle.

-

[ecfisa]

Hola Jose.

No estoy seguro de haberte entendido, pero supongo que deseas obtener el índice que ocupa el componente dentro de la propiedad vectorial Components que mantiene el propietario de los mismos.

Código Delphi [-]
function TForm1.GetComponentIndex(const aName: string): Integer;
var
  C: TComponent;
begin
  Result:= -1;
  C:= FindComponent(aName);
  if Assigned(C) then
    Result:= C.ComponentIndex;
end;

Saludos