Discussion :

[Droïde Système7]

Bonjour

Disposition de "TRY" qui me pose question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.btnTestINIClick(Sender: TObject);
Var
  FileIni: TIniFile;
begin
  TRY // Try au dessus
    FileIni := TIniFile.Create('C:\Temp\Test.ini');
//TRY // try au dessous
    Memo1.Lines.Add('Lecture des valeurs des Section dans la liste valeur');
    FileIni.ReadSectionValues('Section Chaine', Memo1.Lines);
  FINALLY
    FileIni.Free ;  // <== [Avertissement] La variable 'FileIni' n'est peut-être pas initialisée
  END;
end;

J'avais pris l'habitude de placer les TRY au dessous du "TIniFile.Create..." pour l'absence d'avertissement...

Or je note bien dans les codes de références ; le TRY se situe au desssus du "TIniFile.Create..."

Oui mais c'est qu'intervient le message d'avertissement du compilo suivant :

[Avertissement] La variable 'FileIni' n'est peut-être pas initialisée

Alors si le TRY doit se disposer au dessus, pourquoi cet avertissement ?

Merci de votre éclairage

[ero-sennin]

Salut Droïde Système7,

Pour ma part, je mets toujours le try après mon Create ...
D'ailleurs, c'est ce qui ressort le plus souvent (du moins dans ce que j'ai pu lire jusque maintenant)

[Droïde Système7]

Salut ero

Ben voui moi idem depuis des années, tu me rassures un peu alors.

Mais par exemple, regarde là, je ne citerais personne
http://delphi.developpez.com/faq/?page=fichiersini

@+

[GoustiFruit]

Je mers aussi le try en-dessous, mais cet exemple me fait réfléchir: si il y a un problème avec le nom de fichier passé en paramètre, avec le try en dessous ça va poser problème !?
Il faut peut-être un double try ici... (un try...except pour le cas où le create échoue ?)

[Paul TOTH]

Je mers aussi le try en-dessous, mais cet exemple me fait réfléchir: si il y a un problème avec le nom de fichier passé en paramètre, avec le try en dessous ça va poser problème !?
Il faut peut-être un double try ici... (un try...except pour le cas où le create échoue ?)

non il suffirait d'initialiser FileIni à nil avant le TRY comme ça le Free ne poserait pas de problème mais je pense que c'est une erreur dans l'exemple, le TRY devrait être après le Create car avant cela le Free n'a aucun intérêt.

[BuzzLeclaire]

Bonsoir,

Moi aussi je le mets au dessus, voilà ce que j'utilise principalement :

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
function LirePositionFenetre(Fenetre: TForm; NomFichier: String): Boolean;
Var
  Fichier_Ini : Tinifile;
Begin
  Fichier_Ini := nil;
  Result := False;
  // On créer ou on lit le fichier
  Try
    Fichier_Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + NomFichier);
    if Fichier_Ini.SectionExists(Fenetre.Name) then
    begin
    // On récupère les données si il y en à
     // ...
     // ...
 
     // si la fenêtre n'ai pas taillable Height, Width reste inchangé (sauf si on touche directement le ini
    // ...
    // ...
      Result := True;
    end;
  Finally
    if assigned(Fichier_Ini) then Fichier_Ini.Free;
  end;
end;

Sa me rassure de vous lire...

[Andnotor]

Je fais les deux, mais systématiquement en dessous si précédé d'une condition. Cela évite un Begin End supplémentaire .

Dans le cas présent et à mon avis, le try finally ne sert à rien !
Dans ces quelques lignes, la seule chose qui puisse coincer serait que le fichier soit ouvert en exclusif par une autre application ou éventuellement un manque de droits.
Placer avant et s'il y avait un problème, l'exception nous ferait immédiatement remonter. Si après, on exécute le Free sur un objet qui n'existe pas (donc inutile) ou qui est invalide (source de problèmes supplémentaires) avant de remonter l'erreur .

Ce bloc devrait être remplacé par un try except (placé avant ). Autant gérer l'exception proprement et immédiatement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.btnTestINIClick(Sender: TObject);
Var
  FileIni: TIniFile;
begin
  try
    FileIni := TIniFile.Create('C:\Temp\Test.ini');
    Memo1.Lines.Add('Lecture des valeurs des Section dans la liste valeur');
    FileIni.ReadSectionValues('Section Chaine', Memo1.Lines);
    FileIni.Free;
  except
    on E:Exception
      Memo1.Lines.Add(E.Message);
  end;
end;

[GoustiFruit]

non il suffirait d'initialiser FileIni à nil avant le TRY comme ça le Free ne poserait pas de problème mais je pense que c'est une erreur dans l'exemple, le TRY devrait être après le Create car avant cela le Free n'a aucun intérêt.

Je ne comprends pas, là tu me dis NON et dans l'exemple tu dis OUI (à propos de l'utilisation du double try, un try...except et un try...finally imbriqués) !?