Discussion :

[FOCUS77]

Bonsoir à tous,

Je veux concevoir un jeu de lumière avec une vingtaine de BGRALED déposées sur une forme dont
voici les codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var
  Form1: TForm1;
   i,ecart:integer;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if i< componentcount+ecart-1 then
 begin
      if i<ecart then
      TBGRALED(Components[i]).On:=True
      else if (i>=ecart) and (i<componentcount) then
      begin
      TBGRALED(Components[i-ecart]).On:=False;
      TBGRALED(Components[i]).On:=True;
      end
      else if i>=componentcount then
      TBGRALED(Components[i-ecart]).On:=False;
      i:=i+1;
  end
 else
 begin i:=0;ecart:=ecart+1 end;
 if ecart>componentcount-2 then
 ecart:=1;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Timer1StartTimer(Sender: TObject);
begin
  i:=0;ecart:=1
end;

Les 19 premières BGRALED fonctionnent normalement, mais la dernière déclenche une erreur

des idées?