Erreur "For loop variable simple local varaible"

Version imprimable

17/09/2005, 11h36
Yepazix

Erreur "For loop variable simple local varaible"

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 ?
17/09/2005, 11h41
qi130

Code:

For xxxx := 1 to .....

Révise l'affectation en Pascal := :wink:
17/09/2005, 11h43
Yepazix

:arrow: Ca ce n'était qu'une faute de frappe ce n'est pas ca qui génère cette erreure. :cry: :cry: :cry: :cry: :cry: :cry:
17/09/2005, 11h46
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.
17/09/2005, 11h51
qi130

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

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

Si ça se pourrait :wink:

Exemples :

Erreur :

Code:

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:

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:

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;

17/09/2005, 12h01
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)
17/09/2005, 12h09
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:

1 2 var vIndice: Integer;
"fori" :

Code:

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

Très pratique ! :P

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:

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.

:arrow: 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.

17/09/2005, 12h59
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.
17/09/2005, 16h04
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:

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
17/09/2005, 19h50
Nono40

Citation:

Envoyé par e-ric

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.
17/09/2005, 21h32
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.
17/09/2005, 22h09
e-ric

Salut

Citation:

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