how would you do this ? 1

[DelphiAaron]

say you have 10 buttons called button1, button2 ext..

then you want to change the caption on all the buttons
like this

var a:integer;
begin
a:=1;
repeat
button(a).caption:='hello';
until a=10;
end;

how would you go about it ?

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[Stretchwickster]

Something like this will work:

var
  i: Integer;
begin
  for i := 0 to ControlCount - 1 do
    if Controls[i] is TButton then
      (Controls[i] as TButton).Caption := 'MyButton';
end;

Also take a look at Components in the Delphi help as an alternative to Controls - it depends exactly what you're trying to do.

Clive
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"To err is human, but to really foul things up you need a computer."
Paul Ehrlich
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To get the best answers from this forum see: faq102-5096