Discussion :

[cantador]

Bonjour à tous,

je reprends ce code de la FAQ, censé lire la totalité d'un fichier ini :

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
 
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;   
  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 
//  Valeur.Free; 
  Section.Free; 
  FileIni.Free ; 
 end ; 
end;

si on le teste sur un fichier comme ceci :

[PREFACE]
deb = maison

[SUITE]
fin = jardin

[FINAL]
n0=table
n1=jouet
n2=camion
n3=chaise
n4=lampe
n5=crayon

on obtient dans le mémo :

n0=table
n1=jouet
n2=camion
n3=chaise
n4=lampe
n5=crayon

Si on met un point d'arrêt, on s'aperçoit que le code fonctionne mais il écrase les données précédentes
donc, il est nécessaire soit de stocker le nombre d'enregistrements dans chaque section ou
de récupérer dans un premier temps la liste des sections et de boucler sur ces dernières.

Qu'en pensez-vous ?

merci

[Andnotor]

La FAQ n'est pas correcte, il faut une StringList supplémentaire pour la récupération des valeurs.

[SergioMaster]

Bonjour,

J'aurais aimé avoir le lien sur la FAQ citée mais bon. Effectivement il y a un souci du fait que ReadSectionValues remplace toutes les lignes de la Stringlist (memo1.lines)
d'un autre côté un memo1.lines.LoadFromFile('C:\Temp\Test.ini') fait la même chose


Voilà ce que j'écrirais (en rouge) :

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,Valeurs  : TStringList;
begin 
 FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier 
 try 
  Section:=TStringList.Create;   
  Valeurs:=TStringList.Create;  
  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],Valeurs);
      Memo1.Lines.AddStrings(Valeurs); 
   end; 
 finally 
  Valeurs.Free; 
  Section.Free; 
  FileIni.Free ; 
 end ; 
end;

Note : avec Tokyo 10.2 lors de mon test, impossible d'obtenir les sections sans avoir fait une première lecture, alors qu'en remplaçant IniFile par MemIniFile pas de soucis. Si quelqu'un a une explication ?

[Edit] j'ai envoyé une notification aux responsables du forum

[cantador]

merci à tous les deux pour votre efficacité
le problème est réglé
je laisse le post ouvert pour la question soulevée par SergioMaster
@bientôt

[SergioMaster]

Bonjour,

j'ai envoyé une notification aux responsables du forum

FAQ modifiée par mes soins (merci aux responsables du forum qui ont élevé mes droits pour pouvoir le faire )

je passe le post en résolu car ma petite question est loin d'être vitale, tout au plus à peine existentielle