jm'étais trompé dans le code afficher audessu mais c'est pour la m&#23

Question

:D :) 8D
[Code]
if ( temp = 2) then
   begin
   shape2.brush.color := clmenu;
   shape2.enabled := true;
   player := player  *-1;
   scorehorizon[1]:=scorehorizon[1]-tab[1,2] ;
   scoreverti[2]:=scoreverti[2]-tab[1,2];
   label17.caption:=inttostr(scoreverti[2]);
   label6.caption:=inttostr(scorehorizon[1]);
   tab[1,2]:=0;
   end;

if ( temp = 3) then
   begin
   shape3.brush.color := clmenu;
   shape3.enabled := true;
   player := player  *-1;
   scorehorizon[1]:=scorehorizon[1]-tab[1,3] ;
   scoreverti[3]:=scoreverti[3]-tab[1,3];
   label18.caption:=inttostr(scoreverti[3]);
   label6.caption:=inttostr(scorehorizon[1]);
   tab[1,3]:=0;
   end;

et ainsi de suite juske 50 ! et j'aimerais metre tout çà en boucle pour évité cette fameuse répetition !MERCI à VOUS ;)

cs_Partagas · Answer

Pourquoi ne pas creer un array[0..49] of TShape;

___________________________________________

"Entre le Savoir et le Pouvoir, il y a le Vouloir"
___________________________________________

Rapakooti · Answer

c est peux etre con mais pourquoi ne pas faire :

> >    begin
> >    shape2.brush.color := clmenu;
> >    shape2.enabled := true;
> >    player := player  *-1;
> >    scorehorizon[1]:=scorehorizon[1]-tab[1,temp] ;
> >    scoreverti[2]:=scoreverti[2]-tab[1,temp];
> >    //label17.caption:=inttostr(scoreverti[temp]);
> >    label6.caption:=inttostr(scorehorizon[1]);
> >    tab[1,temp]:=0;
> >    end;

avec une procedure pour gerer les labels

R A P A K O O  T  I

Jm'étais trompé dans le code afficher audessu mais c'est pour la m&#23

2 réponses

Votre réponse

Discussions similaires