buton en ciclo for

[rolando_s]

si tengo 25 botones en un form y quiero cambiarles el caption a todos...

ES NECESARIO QUE NOMBRE LOS 25 BOTONES?!?!??!

Código Delphi [-]
 procedure TSalas.FormActivate(Sender: TObject);
 var h:integer;
 var a:string;
 begin
    with query1 do
    begin
       for h:=1 to 25 do
          arreglo[h] := IntToStr(h);
       for h:=1 to 25 do
          begin
             sql.clear;
             sql.add('select*from usopc where inde='+arreglo[h]);
             open;
             USARVARIABLE H.Caption:=(fieldbyname('nombre').asstring);
          end;
       end;
    end;
 end.

[[Lepe]]

hombre, si tienes paciencia puedes ir nombrandolos uno por uno

Código Delphi [-]
var but:tcomponent;
begin
 with query1 do
begin
  sql.clear;
  sql.add('select*from usopc ');
  open;
  while not sql.eof do
  begin
    but := form1.findcomponent('boton'+(fieldbyname('inde').asstring);
    if but <> nil then
       // como sé que es un boton, hago el cast
      Tbutton(but).caption := fieldbyname('nombre').asstring);
    sql.next;
  end;
end;

Saludos

PD: if but <> nil --> En la ayuda de findcomponent no dice que devuelva nil si no encuentra el componente, pero la prueba que he hecho devuelve nil si no lo encuentra.