Discussion :

[Barbibulle]

Bonjour,
En lisant cette FAQ http://delphi.developpez.com/faq/?page=Fichiers-INI je m’aperçois que pas mal des exemples démarrent par :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var FileIni  : TIniFile; 
begin 
 try 
  FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
  .
  .
  .
 finally 
  FileIni.Free ; 
 end ; 
end;

J'inverserai bien la ligne du try avec celle du FileIni:=TIniFile.Create(...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var FileIni  : TIniFile; 
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
  .
  .
  .
 finally 
  FileIni.Free ; 
 end ; 
end;

[Alcatîz]

Bonjour,

C'est fait. Merci beaucoup !

[Barbibulle]

Merci Alcatîz

Pour bien faire il faudrait aussi modifier
http://delphi.developpez.com/faq/?pa...un-fichier-ini

Utiliser deux try/finally imbriqués plutôt qu'un seul. et supprimer "Valeur.Free;" qui n'est pas instancié ni déclaré.

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
Var FileIni  : TIniFile; 
    Compteur : Integer; 
    Section  : TStringList; 
 
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
  Section:=TStringList.Create; 
  try
   FileIni.ReadSections(Section); 
   For Compteur:=0 to Section.Count-1 do 
   begin 
    // Lecture des valeurs de la section Section[Compteur] 
    Memo1.Lines.Add(#13#10+'['+Section[Compteur]+']'); 
    FileIni.ReadSectionValues(Section[Compteur],Memo1.Lines); 
   end; 
  finally 
   Section.Free; 
  end;
 finally
  FileIni.Free; 
 end; 
end;