Discussion :

[GoustiFruit]

Bonjour,

J'ai un bout de code qui utilise une variable (Integer) et Delphi me colle ce warning à la compilation...

[DCC Avertissement] fmMain.pas(2069): W1036 La variable 'iAreaID' n'est peut-être pas initialisée

Je sais de quoi il s'agit, j'ai un "Continue" qui contourne parfois le code faisant utilisation de cette variable...
Le problème est que si je force l'initialisation de la variable, alors à la compilation j'ai le warning...

[DCC Conseil] fmMain.pas(2057): H2077 La valeur affectée à 'iAreaID' n'est jamais utilisée

Auriez-vous une astuce pour faire disparaître ces warnings ? Je pense que le compilo s'emmêle les pinceaux !

[popo]

Il faut placer l'initialisation au bon endroit...

Ce serait plus facile de te dire où si on avait le bout de code en question

[GoustiFruit]

Je crois que j'ai a peu près tout essayé :-\
Voici mon code très simplifié (de mémoire)...

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
34
35
36
37
38
39
40
procedure Test(const slUrls: TStringList);
var
  sl: TStringList;
  sUrl, sCompetitionUrl: string;
  iAreaID: Integer;
begin
  sl := TStringListCreate;
  try
    for sUrl in slUrls do begin
      with qry do begin
        // iAreaID := 0; // Evite le warning W1036 à la compilation mais fait apparaître H2077 !
 
        SQL.Text := 'SELECT ID FROM Areas WHERE Url = :p0;';
        Params[0].AsString := sUrl;
        Open;
        if not Eof then
          iAreaID := Fields[0].AsInteger
        else begin
          DoSomething;
          Continue;
        end;
 
        SQL.Text := 'SELECT Url FROM Competitions WHERE Area = :p0 AND Type = 1;';
        Params[0].AsInteger := iAreaID; // !!! ICI !!! Warning "peut-être pas utilisée"
        Open;
        if not Eof then
          sCompetitionUrl := Fields[0].AsString
        else begin
          DoSomething2;
          Continue;
        end;
 
        // Encore du code utilisant sCompetitionUrl et sl...
        // DoSomething3;
      end;
    end;
  finally
    sl.Free;
  end;
end;

[Nono40]

Le compilateur ne gère pas le 'continue' pour savoir ce qui est utilisé ou pas.

As-tu essayé ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
        SQL.Text := 'SELECT ID FROM Areas WHERE Url = :p0;';
        Params[0].AsString := sUrl;
        Open;
        if not Eof then
          iAreaID := Fields[0].AsInteger
        else begin
          iAreaID := 0; // Dans les deux cas du IF iAreaID sera initialisé
          DoSomething;
          Continue;
        end;

[GoustiFruit]

Si je fais ça, je n'ai plus le warning mais j'ai :

Code :

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

[DCC Conseil] fmMain.pas(2060): H2077 La valeur affectée à 'iAreaID' n'est jamais utilisée

[Jipété]

Hé ben, GoustiFruit, c'est la chaleur ?

Si je fais ça, je n'ai plus le warning mais j'ai :

Code :

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

[DCC Conseil] fmMain.pas(2060): H2077 La valeur affectée à 'iAreaID' n'est jamais utilisée

D'après le bout de code que tu montres, on voit que ta variable n'est pas utilisée, après l'affectation d'une valeur,
style if iAreaID = 0 then une_action else autre_action;, donc à quoi elle sert ? À rien ?

Enfin, il me semble (c'est vrai qu'il fait chaud, fouhhh ! )

[Nono40]

Autre essai :

Code :

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

1
2
3
4
5
6
7
8
9
       SQL.Text := 'SELECT ID FROM Areas WHERE Url = :p0;';
        Params[0].AsString := sUrl;
        Open;
        if Eof then
        begin
          DoSomething;
          Continue;
        end;
        iAreaID := Fields[0].AsInteger

[Okaryn]

Hello,

Sinon, avec la directive {$WARNINGS OFF} pour l'ensemble de ta fonction.

[Paul TOTH]

dans ce genre de cas où le code contient trop de "continue" ou de if/then/else, j'utilise un Case Of avec des appels de fonction dans les Case, ça rend les choses beaucoup plus claires.

ou encore des fonctions du type

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
 
function getAreasID(const Url: string; var ID: Integer): Boolean;
begin
  ..
end;
function getCompetitionsURL(ID: Integer; var URL: string): Boolean;
begin
  ..
end;
 
begin
  if getAreasID(sURL, iAreaID) then
  begin
   if getCompetitionsURL(iAreaID, sCompetitionUrl) then
   begin
   end else begin
   end;
  end else begin
  end;
end;

je trouve cela beaucoup plus élégant que le code folding, et ça pousse à la factorisation au lieu du copier/coller
Sinon, le compilateur devrait accepté un iAreaID := 0 en tout début de fonction.

[GoustiFruit]

je trouve cela beaucoup plus élégant que le code folding, et ça pousse à la factorisation au lieu du copier/coller
Sinon, le compilateur devrait accepté un iAreaID := 0 en tout début de fonction.

Non, en initialisant la variable en début de fonction j'ai le même message "H2067" !

Ce que tu appelle "code folding", c'est l'imbrication des sous-procédures, comme dans la deuxième partie de ton code ? J'utilise des Continue justement pour éviter ça. Mon exemple est très simplifié mais j'ai un certain nombre de variables qui réagissent de la même manière (soit le compilo me dit qu'elle ne sont pas initialisées, soit j'initialise et il me dit qu'elles ne sont pas utilisées) et imbriquer la série de tests rend le code trop touffu !

Sinon, avec la directive {$WARNINGS OFF} pour l'ensemble de ta fonction.

Je préfère éviter, j'aime savoir que mon code est "propre"

Hé ben, GoustiFruit, c'est la chaleur ?

Non il faisait encore frais quand j'ai posté ! Par contre chez toi... ?
La variable est bien utilisée, après le "Continue" (voir premier post).

Autre essai :

Code :

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

1
2
3
4
5
6
7
8
  SQL.Text := 'SELECT ID FROM Areas WHERE Url = :p0;';
  Params[0].AsString := sUrl;
  Open;
  if Eof then  begin
    DoSomething;
    Continue;
  end;
  iAreaID := Fields[0].AsInteger

Et c'est Nono40 qui remporte la palme, félicitations !

Merci à tous !

[Paul TOTH]

le "Code folding" c'est quand un éditeur te permet de masquer un gros paquet de code en cliquant sur un signe "-" pour rendre ton code plus digeste....alors qu'il ne l'est pas

[Jipété]

Yop !

(...) Je préfère éviter, j'aime savoir que mon code est "propre"

+ 1 !

(...) Non il faisait encore frais quand j'ai posté ! Par contre chez toi... ?

Ben c'est terrible depuis 3 soirs...