Fichiers ini et TListview

Version imprimable

Je cherche a lire le contenu d'un Fichier ini (en global avec FileIni.ReadSections et FileIni.ReadSectionValues) et à créer des icones dans un TListview avec les éléments contenu dans mon fichier ini. Le but etant d'executer Un ShellExecute (sur le PATH et eventuellement le Parametre s'il existe) en double cliquant sur les icones du TListview.

Est-ce que ma boucle vous parait convenable ? (en fait, je tatonne par essai successifs), je m'approche mais c'est pas terrible...

D'autre part, ListItem.Caption := Valeurs.Strings [0];
renvoie toute la chaine : "clé = valeur" de la section alors que juste la valeur m'interresse (ex : "Mon Dossier", "Mon planning"), Strings [0];
ne semble pas être la bonne commande...

Le fichier ini est structuré ainsi :

[1]
NAME = "Mon Dossier"
SUBTITLE = "Affiche le contenu de votre dossier personnel"
PATH = c:/windows/system32/calc.exe //pour l'exemple
PARAM =
ICON = 1

[2]
NAME = "Mon Planning"
SUBTITLE = "Affiche le contenu du planning"
PATH = c:/windows/system32/cmd.exe
PARAM =
ICON = 2
etc...

Mon code est le suivant :
Code:

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 30 31 32 33 34 35 36 37 38 39 40 var FileIni : TIniFile; Compteur : Integer; Section : TStringList; //Liste des sections du fichier ini Valeurs : TStringList; //Liste les clés et les valeurs ListItem : TListItem; i : Integer; begin try begin FileIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\QF.ini'); Section:=TStringList.Create; Valeurs:=TStringList.Create; // Lit les noms de toutes les sections d'un fichier INI FileIni.ReadSections(Section); For Compteur:=0 to Section.Count-1 do begin with ListView1 do ListItem := Items.Add; //Ajoute un Item pour chaque Section //lit les clés et les valeurs de toutes les clés d'une section particulière d'un fichier INI FileIni.ReadSectionValues(Section[Compteur],Valeurs); for i:=0 to Valeurs.Count-1 do ListItem.Caption := Valeurs.Strings [0]; //Titre des Items //ListItem.SubItems.Add(Valeurs.Strings[1]); end; end; finally FileIni.Free ; Section.Free; Valeurs.Free; end; end;
Merci de vos suggestions,

Denis

15/02/2011, 16h46
ddubois

re:

J'ai trouvé une partie de la réponse:

ListItem.Caption := Valeurs.Values['NAME'];

ListItem.SubItems.Add(Valeurs.Values['SUBTITLE']);

etc.
15/02/2011, 17h30
ShaiLeTroll

Pense qu'il existe aussi une propriété Data au ListItem si tu souhaite stocker un pointeur (sur un record) qui contiendrait des données cachées comme le Path

Je n'utiliserais pas ReadSectionValues, mais plutôt ReadString ou ReadInteger sur chaque clé NAME, SUBTITLE, PARAM, ICON...

Petite remarque sur le "create try finally free"
Dans ton code, là, si tu as une exception dans le constructeur, tu peux tenter de libérer des objets non initialisés ! je n'arrive pas à comprendre pourquoi tant de monde veut écrire "try create finally free" au lieu de "create try finally free" ou un paranoïaque "try create try finally free except" (surtout utile si l'on souhaite se protéger d'un EOutOfMemory ou de constructeur pouvant déclencher des exceptions, ce qui est assez rare)
16/02/2011, 08h26
Lung

Citation:

Envoyé par ShaiLeTroll

Petite remarque sur le "create try finally free"
Dans ton code, là, si tu as une exception dans le constructeur, tu peux tenter de libérer des objets non initialisés ! je n'arrive pas à comprendre pourquoi tant de monde veut écrire "try create finally free" au lieu de "create try finally free" ou un paranoïaque "try create try finally free except" (surtout utile si l'on souhaite se protéger d'un EOutOfMemory ou de constructeur pouvant déclencher des exceptions, ce qui est assez rare)

+1
Tu n'es pas le seul. :mouarf:
16/02/2011, 10h10
ddubois

Merci, effectivement je pensais utiliser un record sur le Data du TListItem
avec 2 ou 3 infos notamment le path (pour executer le programme lors du doubleclick via un shellExecute) ainsi que le paramètre PARAM (2e paramètre de ShellExecute)

Cellui qui as un bout de code pour le Record et le ListItem.Data, je suis preneur...

Encore merci, je vais voir pour les try, fianlly, free, bidule truc

Cela ressemble à cela
Code:

1 2 3 4 5 6 7 type PInfos = ^TInfos; TInfos = record nom : String; prenom : String; adr : String; end;
...
Code:

1 2 3 4 5 var Infos: PInfos; begin New(Infos); // ne pas oublier le Dispose lors du Clear ou Delete dans le TListView ListItem.Data = Infos;
un code similaire avec le TTreeView qui fonctionne pour la propriété Data exactement de la même façon

16/02/2011, 11h48
Andnotor
En voyant que les noms de sections sont numériques, il serait aussi possible de ne stocker que ce nombre dans Data :
Code:

1 2 3 4 5 //Ecriture Data := Pointer(Compteur +1); //Lecture FileIni.ReadString(IntToStr(integer(Data)), 'NAME', '');

J'ai intégré toutes vos suggestions de code.
Mais j'ai une Exception lors ce que je double-clique sur un TlistItem, sur la Commande :

ShowMessage(Infos^.FPath);
(mais peut-être est-ce la syntaxe qui n'est pas adaptée ?)

Qui devrait afficher le chemin affecté pour executio, dans un ShellExecute.

Donc je poste le code (provisoire) complet (en 3 parties) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
{ Stocke un pointeur sur un Record dans les TListItem }
type
  PInfos = ^TInfos;
  TInfos = record
    FType  : Integer;
    FName  : String;
    FTitle : String;
    FPath  : String;
    FParam : String;
    FIcon  : Integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
procedure TForm1.FormCreate(Sender: TObject);
var
 FileIni  : TIniFile;
 Compteur : Integer;
 Section  : TStringList;   //Liste des sections du fichier ini
 Valeurs  : TStringList;   //Liste les clés et de leurs valeurs
 ListItem : TListItem;
 Infos    : Pinfos;        //Pointeur sur le 'Record'
 i        : Integer;
 
 
begin
 
  FileIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\QF.ini'); // Ouvre ou crée le fichier
  Section:=TStringList.Create;
  Valeurs:=TStringList.Create;
  Try
    begin
      // Lit les noms de toutes les sections d'un fichier INI
      FileIni.ReadSections(Section);
 
      Screen.Cursor := crHourglass;
      ListView1.Items.BeginUpdate;
 
      For Compteur:=0 to Section.Count-1 do
        begin
          // Lecture des noms des [sections] du fichier ini :
           //ShowMessage(Section[Compteur]);
 
          with ListView1 do
          ListItem := Items.Add;         //Ajoute un Item pour chaque Section
 
          New(Infos);                         //Nouveau pointeur
          ListItem.Data := Infos;        
 
          //lit les clés et les valeurs de toutes les clés d'une section particulière d'un fichier INI
          //FileIni.ReadSectionValues(Section[Compteur],Memo1.Lines);
          FileIni.ReadSectionValues(Section[Compteur],Valeurs);
 
         for i:=0 to Valeurs.Count-1 do
 
           {Nom du module}
           ListItem.Caption := Valeurs.Values['NAME'];
           Infos^.FName := Valeurs.Values['NAME'];
 
          {Commentaire -  Col 1}
           ListItem.SubItems.Add(Valeurs.Values['SUBTITLE']);
           Infos^.FTitle := Valeurs.Values['SUBTITLE'];
 
           Infos^.FPath := Valeurs.Values['PATH'];
           Infos^.FParam := Valeurs.Values['PARAM'];
 
 
          {Icone du module}
          // if Valeurs.Values['ICON'] <> "" then     { Si présence d'autres Sections sans 'ICON' dans le Ini }
           ListItem.ImageIndex := (StrToInt(Valeurs.Values['ICON'])-1);
           Infos^.FIcon := (StrToInt(Valeurs.Values['ICON'])-1);
 
        end;
     end;
  Finally
    FileIni.Free ;
    Section.Free;
    Valeurs.Free;
    ListView1.Items.EndUpdate;
    Screen.Cursor := crDefault
  End;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.ListView1DblClick(Sender: TObject);
var
  ListItem : TListItem;
  Infos    : Pinfos;       //Pointeur sur le 'Record'
 
begin
  ListItem := ListView1.Selected;
 
  {Aucune icône n'est sélectionnée :}
  if not assigned(ListItem) then exit;
 
  ShowMessage(Infos^.FPath);  <-------------- EXCEPTION VIOLATION
 
 //Dispose(Infos);           //Libère l'espace mémoire allouée
 
end;

Merci,

Denis

en même temps, c'est pas magique ! Data tu l'as oublié ? Comprends-tu ce que tu fais ?
Code:

1 2 3 4 5 6 7 {Aucune icône n'est sélectionnée :} if not assigned(ListItem) then exit; Infos := Pinfos(ListItem.Data); // je ne sais plus si le cast est obligatoire ShowMessage(Infos^.FPath); //Dispose(Infos); Surout pas ici !
le Dispose devra être fait en boucle sur chaque Pinfos contenu dans les ListItem.Data, ne pas oublier de cast le pointeur pour le Dispose pour appeler la fonction FinalizeRecord qui s'occupera de libérer les sous-pointeur comme le type String !

la boucle devra être dans FormDestroy
ça devrait donner
Code:

1 2 3 for i:=0 to ListView1.Items.Count-1 do Dispose(PInfos(ListView1.Items[I].Data)); ListView1.Items.Clear();

17/02/2011, 16h15
ddubois

Mais c'est bien sur !
Je reprends Delphi après 2 ans d'absence ! (dur, dur)

Merci grand Troll, ca marche au poil !

Il me reste a afficher la même chose avec un filtre par "TYPE" (numérique) en cliquant sur un bouton :
Bouton 1 : Tous les items (C'est Fait)
Bouton 2 : Les items de "Type" 1 (voir .ini)
Bouton 3 : Les items de "Type" 2
etc.

Comment feriez vous ?
Est-ce que je peut m'appuyer (capitaliser) sur une partie du code présent ou dois je refaire toute la lecture du ini, vider les Data avec Dispose puis ré-affecter chaque Champs PInfos en ecartant les "TYPE" différents, etc.
Le tout dans un procedure avec le numéro du "TYPE" (Integer) passé en Paramètre (en fonction du bouton appuyé) ?

Merci,

Denis
17/02/2011, 16h44
ShaiLeTroll

Tu peux effectivement ressortir le code du FormCreate vers une fonction plus ouverte avec paramètres !

Même, je ferais en deux temps !
Une fonction qui lit le fichier ini et rempli une TList passé en paramètre
Puis une fonction qui utilise la TList pour affecter les Data !
une fois les Data affecté, la TList peut être libéré (cela ne libère pas les pointeurs automatiquement donc pas de soucis)

Ainsi la fonction de lecture du ini pourra être réutiliser ailleurs !
17/02/2011, 18h32
ddubois

Bon, je vais essayer de traduire tout cela en langage Delphinien !

Merci,

Denis

En cliquant droit sur un Tlistitem, j'affiche une boite de dialogue et je remplit les champs àTEdit l'ouverture à partir des TListItem.Data du Tlisview de Form1
Finalement je retombe sur un bête message d'erreur : "Identificateur non déclaré : 'TListItem'" dans Form2, et je me bagarre, impossible de trouver la soluce (je sens que je vais être tout rouge de honte :oops: ) mais a force d'être dans le guidon...
Code:

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 Form2: TForm2; implementation uses Unit1; //Réference à TForm1 {$R *.dfm} procedure TForm2.FormShow(Sender: TObject); var ListItem : TListItem; Infos : Pinfos; //Pointeur sur le 'Record' begin ListItem := Form1.ListView1.Selected; //L'item concerné est celui sélectionné Infos := Pinfos(Form1.ListView1.ListItem.Data); EditName.Text := Infos^.FName; EditSubTitle.Text := Infos^.FTitle; EditPath.Text := Infos^.FPath; EditParam.Text := Infos^.FParam; end;
D'avance, merci

Dan

21/02/2011, 08h14
Lung

Citation:

Envoyé par ddubois

Finalement je retombe sur un bête message d'erreur : "Identificateur non déclaré : 'TListItem'" dans Form2, et je me bagarre, impossible de trouver la soluce

L'aide dit qu'il faut ComCtrls dans les uses.
23/02/2011, 09h20
ddubois

oui ca marche, je vous remercie.