Discussion :

[Bruno13]

Bonjour à tous,

Voilà mon interrogation au sujet des conseils que me donne D7 lorsque je déclare ma variable J et qu'ensuite je n'utilise celle-ci uniquement dans un CASE = 10. Comment faire pour que ma programmation soit propre et que ce Conseil n'apparaisse plus ? (Mise à part biensur désactiver les messages "Conseils"

Voici mon bout de code ci-dessous :

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
procedure TMain.FormCreate(Sender: TObject);
var
  ....
  i, j : integer;
  ...
begin
 
  Case APPLICATIONID of
    ..............
    10 : Begin
             ........
                   for j:=0 to L.Count-1 do
                   Begin
                      ............
                     ............
                   end;
             ..........
        End
      Else
        Caption:='MP '+MAJOR_VERSION+'.'+MINOR_VERSION;
    End;
  ..................
end; {* PROC .FormCreate *}

[Rayek]

C'est juste un avertissement, qui t'indique qu'il se peut que ta variable n'est pas initialisée et tu en auras à chaque fois que tu fais comme le code que tu nous montres. (Delphi analyse en global et ne cherche pas tous les cas possible d'entrer dans ton case)
En aucun cas cela veut dire que ton code n'est pas "propre" (c'est quoi d'ailleur un code propre ? Un code qui est imprimé et passé à la machine à laver ? ).

Si tu ne veux plus que ce message apparaisse, il te suffit de rajouter j:=0; en début de procédure.

[Lung]

Si tu ne veux plus que ce message apparaisse, il te suffit de rajouter j:=0; en début de procédure.

J'ai eu le même message, que j'ai corrigé comme tu le proposes, sauf que maintenant, il me dit que la valeur affectée à la variable ne sert à rien.

- Si j'initialise la variable, il me dit que la valeur n'est jamais utilisée.
- Si je n'initialise pas la variable, il me le reproche.

[Cl@udius]

Salut

J'aurais une interprétation différente du message.

Ne serait-ce pas parce que APPLICATIONID ne prendra jamais la valeur 10, et de ce fait le bloc de code est supprimer par le compilo ? D'où le message !

@+

[Paul TOTH]

ça me surprend...j'ai déjà eu alertes injustifiée, mais c'est plus lié à des bloques d'exception...sur un case je suis surpris.

[Bruno13]

Bonjour à tous,

Pour répondre à tout le monde en même temps :
- un code propre pour c'est de n'avoir aucun Avertissement/Conseils.
- Comme Lung, j'ai le même problème

Par contre pour ApplicationID c'est une constante (je suis sûr que vous allez bondir ) que je change à la main pour définir la nature du soft (Viewer/Full access).

Là je suis d'accord, ce n'est surement pas la bonne solution mais coment puis-je faire alors pour compiler une fois en mode Viewer et une autre en mode FullAccess ?

Amicalement
Bruno

[Paul TOTH]

ah ben voila, l'erreur est donc juste, avec l'optimisation du code, l'inutilité de j ressort

alors pour gérer ton truc, il y a les defines

Code :

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

1
2
3
4
5
6
7
8
 
{$DEFINE xxx} 
 
{$IFDEF xxx} 
 cas 1
{$ELSE} 
 cas 2
{$ENDIF}

mais j'utilise moi aussi l'optimisation du code

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
 
{$DEFINE DEBUG} 
 
const
 DEBUG={$IFDEF DEBUG}TRUE{$ELSE}FALSE{$ENDIF}
 
begin
...
 if DEBUG then ShowMessage('La valeur de i est '+IntToStr(i));
...
// l'autre solution étant de faire
...
{$IFDEF DEBUG}
 ShowMessage('La valeur de i est '+IntToStr(i));
{$ENDIF}
end;

[Cl@udius]

Par contre pour ApplicationID c'est une constante

C'est bien ca, tu as ce message si ta constante est différente de 10.

Sinon tu peux utiliser les directives de compilation:

Code :

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

1
2
 
{$IFDEF FULLACCESS} ... {$ELSE} ... {$ENDIF}

[/edit] Grillé par P. Toth ! [/edit]

@+

[Bruno13]

Re-Bonjour,

voilà mon problème est résolu. En effet c'est bien le fait que APPLICATIONID était une Constante et donc la compilation ne prennait pas en compte le CASE.

Du coup :

Code :

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

1
2
3
4
5
6
7
var
  APPLICATIONID : Integer = 1;
.....
//  APPLICATIONID : Integer = 7;  // For Deutch program
...
//  APPLICATIONID : Integer = 10; // For Viewer
...