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,

[potili2]

merci, j'ai encore beaucoup à apprendre...
deux jours que je me bagarrais avec ça...
Jean Pierre

[e-ric]

A titre d'info : La phase d'optimisation des compilateurs, tel que Delphi, permet une meilleure utilisation de la ressource processeur (c'est un peu une lapalissade) mais c'est aussi ce qui peut compliquer le désassemblage d'un programme car la conversion du code source en code exécutable (la compilation) n'est alors plus une simple traduction.

Normalement, l'optimisation ne doit pas perturber l'exécution de ton programme. Ceci dit, je la désactive très souvent (la directive $OPTIMIZATION est alors bien utile).

cdlt