Номер Button в цикле ?

[BBOBAHH]

Всем привет. Ребята, подскажите как в цикле сделать смену номера кнопки ?

вот мой набросок, но Дэлфи ругается похоже на синтаксис

var
  d: integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 for d:=1 to 10 do
      Button[d+1].visible:=true ;
      Button[d+1].caption:=IntToStr(d+1);
    if d:=10 then  Timer1.Enabled:=false;
end;

end.

[mihali4]

Переменная D - начальное значение должно задаваться по Button1Click.
В обработчике события Timer1Timer она последней строкой должна увеличиваться.
А цикл в этом обработчике уберите напрочь.
То есть:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
d:=2;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button[d].visible:=true ;
Button[d].caption:=IntToStr(d);
if d:=10 then  //вот синтаксическая ошибка !
Timer1.Enabled:=false else
Inc(d);
end;

[BBOBAHH]

А что в цикле не будет работать ? Или много ворочать ?

[mihali4]

Цикл организуется самим таймером.
При тех условиях, как сделано у вас, вы просто получите моментальную расстановку капшенов и видимости для всех кнопок по первому же срабатыванию таймера.
А вы, как я понял, хотите, чтобы кнопки появлялись с интервалом таймера...

[BBOBAHH]

вообще-то я из первоначально представленного кода убрал строчки

if  oshibka[d]<>0 then Button[d].visible:=true ;
if  oshibka[d]<>0 then Button[d].caption:=IntToStr(d);

а так задача такая, чтоб при появлении oshibka[1] .... oshibka[n] (всмысле oshibka[1] <>0 ) показывались кнопки button[1]....button[n] , ну и капшены тоже . Ошибок и кнопок всего 10 штук. Вот поэтому для укорочения кода я и привязался к циклу. Может я напрасно к нему привязался. поправте


ЗЫ... а еще ругается на строчку

Button[d].visible:=true ;

[_-Re@l-_]

Вот,скопипастил пример из другой темы:

procedure TTempForm.Button1Click(Sender: TObject);
var
  i: Integer;
  S: string;
begin
  for i:=0 to Pred(ControlCount) do
    If Controls[i] Is TEdit Then
    Begin
      S:= S+TEdit(Controls[i]).Text;
    End;
  ShowMessage(S);
end;

Ссылка на тему: вот здесь

[BBOBAHH]

не понял нифика...