Discussion :

[Yepazix]

Hello,

Lorsque j'utilise for xxx=1 to 10 do j'ai souvent le message :

[Error] Unit4.pas(169): For loop control variable must be simple local variable

Je crois que c'est parceque je ne déclare pas ma variable xxx au bon endroit ou peut être de la bonne façon mais je ne sais pas comment la déclarer correctement. Quelqu'un peut il m'aider ?

[qi130]

Code :

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

For xxxx  := 1 to .....

Révise l'affectation en Pascal :=

[Yepazix]

Ca ce n'était qu'une faute de frappe ce n'est pas ca qui génère cette erreure.

[DMO]

Le problème vient de la déclaration de ta variable de boucle "xxx".

Elle doit être une variable déclarée localement dans la procédure ou fonction où tu te trouves.

[qi130]

Mais ce n'est sensé provoquer une erreur....


Sauf s'il y a une option dans le compilo....

[DMO]

Si ça se pourrait

Exemples :

Erreur :

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
type
  TForm1 = class(TForm)
    (...)
    procedure btn1Click(Sender: TObject);
  private
    vIndice: Integer;
  end;
 
implementation
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  for vIndice := 0 to ControlCount-1 do
    Controls[vIndice].Visible := Boolean(Random(1));
end;

Warning :

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
type
  TForm1 = class(TForm)
    (...)
    procedure btn1Click(Sender: TObject);
  end;
 
var
  vIndice: Integer;
 
implementation
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  for vIndice := 0 to ControlCount-1 do
    Controls[vIndice].Visible := Boolean(Random(1));
end;

Impeccable :

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
type
  TForm1 = class(TForm)
    (...)
    procedure btn1Click(Sender: TObject);
  end;
 
implementation
 
procedure TForm1.btn1Click(Sender: TObject);
var
  vIndice: Integer;
begin
  for vIndice := 0 to ControlCount-1 do
    Controls[vIndice].Visible := Boolean(Random(1));
end;

[qi130]

Et dans l'exemple provoquant le warning, elle n'est pas locale cette variable...

Enfin, moi je déclare le + souvent l'indice de boucle en locale:
- il n'y a pas de msg du compilo
- ça évite de se prendre la tête "ai-je besoin du contenu de cette variable ailleurs?"
- ça évite les effets de bord (si la question ci-dessus n'a pas été posée)

[DMO]

Oui parfaitement. Dans le cadre de la boucle FOR, les membres provoquent l'erreur et les variables globales un simple (mais judicieux) avertissement.

En réponse à puce_84 je confirme donc ta préconisation qi130, qui est aussi la mienne (et celle de Delphi puisqu'il nous avertit) : toujours utiliser des variables locales pour les boucles FOR.

C'est pas pour ce que ca coûte , surtout si on utilise l'audit de code (CTRL+J) : par exemple j'utilise (mais chacun fait comme il veut) :

"vari" :

Code :

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

1
2
var
  vIndice: Integer;

"fori" :

Code :

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

for vIndice := 0 to |.Count-1 do

Très pratique !

[Yepazix]

Ok je comprends bien et en effet je n'ai plus d'erreur mais peut on uttiliser la valeur d'une var déclarée localement dans une autre procédure imbriquée ?
Exemple :

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 TForm4.Button1Click(Sender: TObject);
var
grandeboucle : integer;
secondeboucle : integer;
begin
For grandeboucle:=-1 to 2 Do Begin
       	                            (...)			 	                            For secondeboucle:=1 to 111 Do Begin
		            (...) 				                            IF secondeboucle:=3 then button2Click(button2);                  
                                            End;
end;
 
 
 
procedure TForm4.Button2Click(Sender: TObject);
begin
(...)
machin:=secondeboucle+65;
end;
 
end.

Ce que je me demande c'est si vu qu'on passe dans une autre procédure le contenu de secondeboucle reste identique que lorsqu'on est dans la procédure de button1.

[DMO]

Par définition les variables locales sont locales à la procédure où elles sont définies. Aussi il ne faut pas s'attendre à pouvoir utiliser la valeur d'une variable dont on vient de se servir dans une boucle FOR.

Pour passer une valeur d'une procédure à l'autre, utilises un membre de la classe ou une variable globale mais pas une variable locale de boucle FOR.

[e-ric]

Salut à tous

L'utilisation d'une variable locale dans une boucle for va dans le sens d'un code plus compréhensible et avec moins d'effet de bord.

Le langage C++ va encore plus loinen permettant la déclaration dans la boucle même :

Code :

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

1
2
3
4
 
  for (int i = 0; i < N; i++) { 
    ....
  }

une fois sorti de la boucle la variable locale i n'a plus d'existence.
C'est encore mieux et ça manque dans Delphi.

Pour compléter le débat, une question : quelle valeur prend la variable de boucle en sortant de celle-ci ?
Si on y réfléchit bien (moment de l'incrémentation, emploi de type énumérés) il n'est pas toujours si facile d'y répondre, d'où la règle : ne jamais faire de supposition sur cette valeur et donc ne pas employer cette variable sans l'avoir affecté après la boucle.

cdlt

e-ric

[Nono40]

Pour compléter le débat, une question : quelle valeur prend la variable de boucle en sortant de celle-ci ?
Si on y réfléchit bien (moment de l'incrémentation, emploi de type énumérés) il n'est pas toujours si facile d'y répondre, d'où la règle : ne jamais faire de supposition sur cette valeur et donc ne pas employer cette variable sans l'avoir affecté après la boucle.

Delphi répond en partie à cette question. Si tu utilises la valeur en sortie de boucle tu as un Warning te disant que la valeur n'est pas valide en sortie de boucle.

Delphi effectue très souvent des boucle en DownTo même si ce n'est pas précisé et si le code de la boucle le permet. Les boucles descendantes sont mieux optimisée en assembleur.

[sjrd]

Sans oublier qu'en pascal (et donc en Delphi), la variable de contrôle d'une boucle for est très souvent (quand c'est possible) remplacée par le registre ax (ou eax) à des fins d'optimisations bien sûr.

[e-ric]

Salut

Delphi effectue très souvent des boucle en DownTo même si ce n'est pas précisé et si le code de la boucle le permet. Les boucles descendantes sont mieux optimisée en assembleur.

Je m'en suis déjà rendu compte avec un collègue lors d'une séance de débogage, en désactivant l'optmisation sous D7, les boucles sont plus "obéissantes". Borland serait bien inspiré d'informer sur les optimisations réalisées même si cela peut être considéré comme stratégique sur un compilateur. Pratiquement, en cours de mise au point, je désactive quasiment toujours l'optimisation (pour d'autres raisons il est vrai).

e-ric