Discussion :

[Jayceblaster]

Bonjour

Je suis dans un projet VCL et je souhaite afficher le contenu d'un fichier ini dans un memo. J'ai trouver un code dans la faq mais il ne marche pas.
Voici le code:

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
25
 
Var FileIni  : TIniFile;
    Compteur : Integer;
    Section  : TStringList;
 
begin
 try
  FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier
  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 le fichier ini est comme ci dessous:

Code :

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

1
2
3
4
5
6
7
8
9
 
  [livre1]
   Titre = Titre1
   Auteur = Auteur1
   Edition = Edition1
  [livre2]
   Titre = Titre2
   Auteur = Auteur2
   Edition = Edition2

Voici ce que j'obtiens dans le memo:

Code :

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

1
2
3
4
 
   Titre = Titre2
   Auteur = Auteur2
   Edition = Edition2

Qu'est ce qui va pas dans ce code?

[edam]

pourqoi pas faire simple

Code :

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

memo1.lines.loadfromfile

[Rayek]

Normal que tu es que la derniere liste de valeur car

Code :

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

1
2
 
 FileIni.ReadSectionValues(Section[Compteur],Memo1.Lines);

écrase ce que tu as dans Memo1.Lines a chaque fois que tu l'appelles.

le mieux serait

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
25
26
27
28
29
 
Var FileIni  : TIniFile;
    Compteur,j : Integer;
    Section,ItemSection  : TStringList;
 
begin
 try
  FileIni:=TIniFile.Create('C:\Temp\Test.ini'); // Ouvre ou crée le fichier
  Section:=TStringList.Create;
  ItemSection  := 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],ItemSection);
      For j := 0 to ItemSection.Count -1 do
         Memo1.lines.Add(ItemSection.Strings[i]);
   end;
 
 finally
  Valeur.Free;
  Section.Free;
  FileIni.Free ;
  ItemSection.Free;
 end ;
end;

[DMO]

pourqoi pas faire simple

+1

Code :

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

Memo1.Lines.LoadFromFile('C:\Temp\Test.ini');

??

[reuqnas]

Bonjour,

est il possible de lire les commentaires (; toto) et l'afficher dans le memo

Merci

[ShaiLeTroll]

Déterrer sur un sujet de 2006 (vieux de 8 ans) cela ne se fait pas !

J'ignore si il y a des API pour les commentaires mais utilise ReadLn et charge le fichier manuellement sans passer par le TIniFile

[Charly910]

Bonjour Reuqnas,

avec

Code :

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

Memo1.Lines.LoadFromFile('C:\Temp\Test.ini');

tu lis et affiches tout le fichier et donc aussi les commentaires précédés d'un ;

A+

Charly

[gegila]

Voila moi je fais comme cela:

Code :

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

1
2
3
4
5
6
7
Var
  FIni: TiniFile;
begin
  Memo1.Clear;
  FIni := TiniFile.Create(EditNomFichierIni.text);
  FIni.ReadSectionValues(EditSection.text, Memo1.lines);
end;