Bonjour à tous,
je reprends ce code de la FAQ, censé lire la totalité d'un fichier ini :
si on le teste sur un fichier comme ceci :
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;
[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
Partager