Lire la totalité d'un fichier ini
Bonjour à tous,
je reprends ce code de la FAQ, censé lire la totalité d'un fichier ini :
Code:
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
