Discussion :

[potili2]

Delphi devient fou ou alors c'est moi...
après plusieurs projets menés à leur terme (et qui fonctionnent toujours, j'ai vérifié et édité), si je lance Delphi (version6) pour un nouveau projet, j'obtiens des résultats des plus farfelus, boucles inversées, branchement conditionnel vrai qui ne s'effectue pas etc...
je vous donne un code intégral (on ne peut plus simple) et la valeur i est inaccessible (vérification effectuée dans la fenêtre de suivi). d'ailleurs, au lancement, je n'obtiens pas le petit point dans la marge de gauche à la ligne donnant i donc je ne peux y mettre de point d'arret.
j'avoue être dépasssé et j'espère ne pas vous paraitre idiot, mais je ne comprends pas.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
    i := 5;
end;
 
end.

merci pour votre aide.
Jean Pierre

[birdyz]

Il me semble que c'est normal car le compilo optimise ce qu'il peut. Dans ton cas, étant donné que tu ne fait rien de i, il ne compile pas tes lignes. Si tu ajoute un simple ShowMessage(IntToStr(i)); ta ligne devrait être compilé.

Birdyz

[e-ric]

Tout le monde a eu ce genre de déboires... au début
Au choix, désactive l'option Optimisation dans les options de projets (onglet Compilateur) ou emploie la directive de compilation {$OPTIMIZATION OFF}

F1 pour plus d'info.

cdlt

[potili2]

merci pour vos réponses. Je ne savais pas ceci.
mais est ce un raison pour qu'une boucle tourne à l'envers sans 'downto' ? peut être était ce un cas particulier. Je n'ai plus le code. si cela se reproduit, je vous le transmettrai.
Jean Pierre

[potili2]

bon, voilà un exemple ou ma boucle tourne de 6 à 1...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 
  x_souris :integer;
 Position: TPoint;
    ecran : integer;
 
begin
     GetCursorPos(Position);
  x_souris := Position.X;        //position de la souris
          for ecran := 1 to 6 do   begin
            x_souris := x_souris+1;
         ShowMessage(IntToStr(x_souris));
                                    end;
end;

pas normal, tout de même, non?

[ShaiLeTroll]

Absolument normal, tu n'utilise pas i dans le for, donc delphi détecte que tu veux faire six fois la même itération, il remplace la boucle 1 à 6 par 6 à 1 car comparer i = 6 est plus lent que i = 0, ... c'est une optimisation,